Ich möchte einen Weg finden, um eine neue Zeile anzuzeigen, nachdem ich die vorherige mit Text gefüllt habe. Dies ist als Angebotstool zu verwenden.
Ich habe derzeit eine Tabelle mit Aufgabenreihen und eine Kostenübersicht am Fuß. Ich möchte, dass dies mit einer leeren Zeile beginnt, in der ich den Eintrag eingeben und dann eine neue Zeile hinzufügen kann, sobald ich dies getan habe, damit ich bei Bedarf einen neuen Eintrag hinzufügen kann.
Ich habe verschiedene Dinge ausprobiert, einschließlich das Hinzufügen einer Makro-Schaltfläche zum Einfügen einer Zeile, wenn Sie darauf klicken, aber ich würde es eher automatisieren, da die Button-Methode die Eingabe der Zeile erfordert, die zu Fehlern führen kann. Ich habe auch versucht, mit VBA in VBA zu arbeiten, erhalte jedoch einen Überlauffehler. Ich habe versucht, dies durch etwas zu verbessern, das ich online gefunden habe. Ich bin neu in der VBA und weiß nur vage, wo ich falsch damit bin.
Sub AddBlankRows()
'
Dim iRow As Integer, iCol As Integer
Dim oRng As Range
Set oRng = Range("D6")
iRow = oRng.Row
iCol = oRng.Column
Do
'
If Not Cells(iRow, iCol).Text = "" Then
Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
iRow = iRow + 2
Else
iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, iCol).Text = "Description of Work"
'
End Sub