MessageBox "Anzahl"
27.03.2015 08:52:44
Müller
für folgenden Code würde ich gerne die ANzahl der einzufügenden Zeilen bestimmen.
Sub Zeileeinfügen()
' Aktuelle Zeile kopieren, unterhalb Zeile einfügen und Inhalte in Zellen ohne Formel löschen
Dim Zelle As Range
ActiveCell.EntireRow.Copy
Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End( _
xlToLeft))
If Not Zelle.HasFormula Then
Zelle.ClearContents
End If
Next Zelle
Cells(ActiveCell.Row + 1, 1).Select
End Sub
1. ICh hätte gerne eine Abfrage für die ANzahl der Zeilen. Z.B bei Eingabe 3, dass er nach der aktiven Zeile dann 3 neue einfügt.2. mein zweites Problem ist der Löschbefehl, bei Nichtvorhanden einer Formel in einer Zelle. Wie kann ich den Bereich festlegen, damit er z.b. nur ab Spalte B bis DP Werte löscht, falls keine Formel vorhanden ist? Ich habe teilweise verbundene Zeilen und daher Probleme?!
3. Was muss ich ändern, damit ich anstatt eine Zeile, eine Spalte einfügen kann? gleiches Prinzip?
bekomms nicht hin :(
Besten Dank!