Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Formate übernehmen bei neuem Eintrag

Betrifft: Formate übernehmen bei neuem Eintrag von: Reinhardt
Geschrieben am: 10.09.2020 08:33:31

Servus,


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

Betrifft: AW: Formate übernehmen bei neuem Eintrag
von: Beverly
Geschrieben am: 10.09.2020 10:56:47

Hi Reinhardt,

versuche es mal so (ungetestet):
Private Sub CommandButton1_Click()
    Dim lngLetzte As Long
    With Tabelle1
        lngLetzte = IIf(IsEmpty(.Cells(Rows.Count, 1)), _
            .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
        .Cells(lngLetzte, 1).Copy .Cells(lngLetzte + 1, 1)
        .Cells(lngLetzte + 1, 1) = lngLetzte - 1
        ListBox1.AddItem lngLetzte - 1
        ListBox1.ListIndex = ListBox1.ListCount - 1
    End With
End Sub



GrußformelBeverly's Excel - Inn

Beiträge aus dem Excel-Forum zum Thema "Formate übernehmen bei neuem Eintrag"