Formate übernehmen bei neuem Eintrag
10.09.2020 08:33:31
Reinhardt
Leider bin ich absoluter VBA Neuling, daher habe ich eine Bitte an euch.
folgendes Problem: Ich möchte über einen Commandbutton, der einen neuen Eintrag generiert, unterhalb der letzten befüllten Zeile (das klappt), auch die Formatierungen der darüber liegenden oder dritten Zeile kopieren.
Im Endeffekt die Tabelle erweitern.
Danke schon mal voraus
Private Sub CommandButton1_Click()
Dim lZeile As Long
lZeile = 3
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
Tabelle1.Cells(lZeile, 1) = CStr("" & lZeile - 2)
ListBox1.AddItem CStr("" & lZeile - 2)
ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub