Herbers Excel/VBA-Archiv

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

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

Formate übernehmen bei neuem Eintrag

• Formate übernehmen bei neuem Eintrag von Reinhardt vom 10.09.2020 08:33:31
• AW: Formate übernehmen bei neuem Eintrag - von Beverly am 10.09.2020 10:56:47

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

---

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