|
Hallo,
ich würde gerne ein Makro erstellen für:
Übertragung von Text aus eine Tabelle in die andere. Folgendes: Ich habe in der Tabelle1 in Spalte B Zahlen von 0-2. Dafür habe ich in VBA eine Bedingung erstellt welche lautet: wenn Zahlenwert Tabelle1, Spalte B <2 dann Text aus Tabelle1 Spalte D in Tabelle2 Spalte C übertragen. Das funktioniert soweit, allerding wird der Text in die gleichen Zeilen übertragen und ich möchte, dass es untereinander kopiert wird und keine leere Zeilen dazwischen sind. Ist das überhaupt möglich?
Hier ist das was ich bis jetzt geschrieben habe, was auch soweit funktioniert, ohne aber dass es nacheinander den Zelleninhalt in die Tabelle2 überträgt.
Sub Uebertragen()
Dim i As Integer
For i = 1 To 6
If Tabelle1.Cells(i, 2) < 2 Then
Tabelle2.Cells(i, 3) = Tabelle1.Cells(i, 4)
Tabelle2.Cells(i, 1) = Tabelle1.Cells(i, 1)
End If
Next i
End Sub
|