wie kann ich aus einer zelle eine zahl auslesen und ein entsprechendes vielfaches dieser zahl als neue bzw. leere zeilen einfügen?
mfg Robert
vielen dank schon einmal vorab, auch an P@ulchen aus Leipzig für die antwort auf mein letztes prob
Sub WerteMulti()
Dim Wert, WertNeu, Faktor As Variant
Dim Zeile, Spalte As Integer
Zeile = 2
Spalte = 3
Faktor = 2
Wert = Cells(Zeile, Spalte)
WertNeu = Wert * Faktor
Cells(Zeile, Spalte + 1) = WertNeu
End Sub
Sub WerteMulti()
Dim Wert, WertNeu, Faktor As Variant
Dim Zeile, Spalte As Integer
Zeile = 2
Spalte = 2
Faktor = 2
Wert = ActiveSheet.Cells(Zeile, Spalte) * Faktor
ActiveSheet.Range((Cells(Zeile + 1, Spalte)), (Cells(Zeile + 1 + Wert, Spalte))).Select
Selection.EntireRow.Insert
End Sub
Sub tt()
Dim n As Integer
For n = 1 To Range("B5").Value * 3
Range("B5").EntireRow.Insert
Next n
End Sub