Feld verschieben
26.02.2004 15:17:47
Student2000
Ich möchte ein Feld, wenn es gleich einem anderen Feld um die Position x verschieben. Habe folgende Code gebastelt macht auch alles ganz gut, aber seht selbst:
Sub FeldVerschieben()
Dim ZeileRechz, ZeileLinx, ZeileEinfügn, ZeileEinfügn2, i As Integer
ZeileEinfügn = 1
ZeileRechz = 1
ZeileLinx = 1
i = 1
Do While ZeileRechz < 100
ZeileEinfügn = ZeileRechz
Do While i < 30
If Sheets("Tabelle3").Cells(ZeileEinfügn, 5).Value = "" Then
ZeileEinfügn = ZeileEinfügn + 1
i = i + 1
Else
i = 30
End If
Loop
'MsgBox ZeileEinfügn
Do While ZeileLinx < 200
If Sheets("Tabelle3").Cells(ZeileRechz, 4).Value = Sheets("Tabelle3").Cells(ZeileLinx, 1).Value Then
Sheets("Tabelle3").Cells(ZeileEinfügn - 1, 5).Value = Sheets("Tabelle3").Cells(ZeileLinx, 1).Value
ZeileLinx = 200
MsgBox ZeileRechz & "," & ZeileLinx
Else
ZeileLinx = ZeileLinx + 1
MsgBox ZeileRechz & "," & ZeileLinx
End If
Loop
i = 1
ZeileRechz = ZeileRechz + 1
MsgBox ZeileRechz
Loop
End Sub
Code Ende.
Er Zählt beim ersten mal alles richtig, aber er springt nicht oben wieder rein sondern zählt ZeileRechz einfach hoch bis 100. Kann mir jemand helfen?
Mfg thomas