ich möchte in VBA erreichen, das die Spalten A und B nur so viele Zeilen mit Text füllen, wie Spalte C besitzt.
A B C
yy xx zz
yy xx zz
yy xx zz
yy xx zz
yy xx zz
yy xx zz
yy xx
yy xx
ich hoffe Ihr könnt mir helfen
danke
Sub runterkopieren()
With ThisWorkbook.Sheets("Tabelle1")
.Range("A1:B1").Copy Destination:=.Range("A2:B" & .Range("C65536") _
.End(xlUp).Row)
End With
End Sub
Gruß Ingolf
Sub test()
[A1] = Inputbox("Wert1")
[B1] = Inputbox("Wert2")
for i = 2 to ActiveSheet.Cells(65536,3).End(xlUp).Row
Cells(i,1) = [A1]
Cells(i,2) = [B1]
next i
End Sub