Schleifenproblem
05.06.2015 08:29:19
r2d2
ich möchte mit einer Schleife in einem Tabellenblatt Daten aus einer anderen Tabelle eintragen. Nun soll aber, wenn in der Zelle B & i ein "x" steht die nächste Zelle verwendet werden. Ich krigs nicht hinn...
Hier mein bisheriger code:
Sub test()
Dim VAR1 As String
Dim VAR2 As String
Dim VAR3 As String
If Sheets("txt").Range("A1") = 1 Then VAR1 = "D"
If Sheets("txt").Range("A1") = 2 Then VAR1 = "E"
i = 3
Do
If Sheets("language").Range("B" & i) = "x" Then i = i + 1
VAR2 = Sheets("language").Range("B" & i)
VAR3 = Sheets("language").Range("C" & i)
Sheets("language").Range(VAR1 & i).Copy
Sheets(VAR2).Range(VAR3).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
i = i + 1
Loop Until Sheets("language").Range("C" & i) = ""
End Sub
Danke.
Gruß r2d2
Anzeige