T
thrasher_5
Hallo,
ich komme mit folgender schleife nicht klar. Der Code ist in VBA.
Ich möchte nur bestimmte Zellen aus bestimmten Spalten auslesen. Die Bedingung ist, wenn "x" als Wert in der Zelle der Spalte E steht, dann lese die Zellen aus der entsprechenden Reihe aus. Problem ist der Vergleich in der If-Bedingung. Die Bedinung gibt nur beim ersten durchgang der For-Schleife "True" zurück. Danach immer "False".
Grüße Thrasher
For indexHA = 1 To 50
temp = Cells(indexHA, 5)
If temp = "x" Then
Windows("Herbstabfrage 04 IS.xls").Activate
Sheets("Einstellung IS").Select
Range("A" & indexHA & ":C" & indexHA).Select
Selection.Copy
Windows("uebersicht.xls").Activate
Sheets("einstellung").Select
Range("C" & indexUE & ":E" & indexUE).Select
ActiveSheet.Paste
Application.CutCopyMode = False
indexUE = indexUE + 1
Else
End If
Next indexHA
ich komme mit folgender schleife nicht klar. Der Code ist in VBA.
Ich möchte nur bestimmte Zellen aus bestimmten Spalten auslesen. Die Bedingung ist, wenn "x" als Wert in der Zelle der Spalte E steht, dann lese die Zellen aus der entsprechenden Reihe aus. Problem ist der Vergleich in der If-Bedingung. Die Bedinung gibt nur beim ersten durchgang der For-Schleife "True" zurück. Danach immer "False".
Grüße Thrasher
For indexHA = 1 To 50
temp = Cells(indexHA, 5)
If temp = "x" Then
Windows("Herbstabfrage 04 IS.xls").Activate
Sheets("Einstellung IS").Select
Range("A" & indexHA & ":C" & indexHA).Select
Selection.Copy
Windows("uebersicht.xls").Activate
Sheets("einstellung").Select
Range("C" & indexUE & ":E" & indexUE).Select
ActiveSheet.Paste
Application.CutCopyMode = False
indexUE = indexUE + 1
Else
End If
Next indexHA
Ich glaub, du bist im falschen Forum gelandet. 
Nix für ungut, aber vB-Code und VBA sind nicht ganz das gleiche.
