[VB] Zeile Verschieben wenn Bedingung erfüllt ist Excel (sonstige Sprachen, auch PHP)

[thread]19589[/thread]

[VB] Zeile Verschieben wenn Bedingung erfüllt ist Excel

Tags: Excel Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+3 replies
Rambo

2015-03-27 13:58
User since
2003-08-14
803 Artikel
BenutzerIn
Hallo liebe Gemeinde,

nach langer Zeit mal wieder Online.
Ich benötige eure Hilfe bei einem Excel Problem bei der Daten Verschoben werden müssen.

AUfbau der Tabelle
Code: (dl )

1 2

SpalteA SpalteB SpalteC SpalteD SpalteE SpalteF Bla blub 0 hier da
Was soll getan werden?
Wenn in Spalte C mit einer Zahl (0-99] beginnt dann verschiebe die Zeile um eins nach rechts.

Resultat:
Code: (dl )

1 2

SpalteA SpalteB SpalteC SpalteD SpalteE SpalteF Bla blub 0 hier da
Würde mich über eure Hilfe freuen.
Lieben Gruss an die Gemeinde
Rambo

modedit Editiert von GwenDragon: Titel ergänzt
Last edited: 2015-03-27 15:10:09 +0100 (CET)
- +2 replies
- GwenDragon
  
  2015-03-27 15:09
  
  User since
  2005-01-17
  14875 Artikel
  Admin1
  
  Soll das intern als Excel-Makro laufen oder als externes VisualBasic oder VBScript oder wie?
  
  Eigentlich willst du doch um eine Spalte verschieben, wenn der numerische Inhalt 0 ist, und keine Zeile.
  Last edited: 2015-03-27 15:12:05 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Rambo
    
    2015-03-27 15:22
    User since
    2003-08-14
    803 Artikel
    BenutzerIn
    
    Ja es soll über ein Excel Makro gemacht werden.
    Wenn in Spalte C NUR eine Zahl steht dann verschiebe ab "C" alles um eins nach rechts
    
    Mein erster Ansatzpunkt ist so:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    Sub test() Sheets("Tabelle3").Activate ActivateSheet.Cells(11, 3).Select '11 ist die Zeile und 3 die Spalte C If ActivateSheet.Cells(11, 3).Value = "10" Then If ActivateSheet.Cells(11, 8).Value = ActivateSheet.Cells(11, 7).Value If ActivateSheet.Cells(11, 7).Value = ActivateSheet.Cells(11, 6).Value If ActivateSheet.Cells(11, 6).Value = ActivateSheet.Cells(11, 5).Value If ActivateSheet.Cells(11, 5).Value = ActivateSheet.Cells(11, 4).Value If ActivateSheet.Cells(11, 4).Value = ActivateSheet.Cells(11, 3).Value If ActivateSheet.Cells(11, 3).Value = "" End If End Sub
    
    Dieses Makro tut seine Arbeit für die Zeile 11 aber bei 800t Datensätzen muss ich noch eine schleife bauen und ich denke so wird das ewig dauern bis es fertig ist.
    Leider weis ich nicht wie ich die Schleife baue und ob es einfachere Möglichkeiten gibt als X mal durch die spalten zu gehen.
    
    Merci schon mal

View all threads created 2015-03-27 13:58.