Thema Datum  Von Nutzer Rating
Antwort
11.12.2019 12:06:00 Alex
NotSolved
11.12.2019 14:05:54 tscharl
NotSolved
11.12.2019 14:15:31 Alex
NotSolved
11.12.2019 14:48:07 tscharl
NotSolved
11.12.2019 15:18:50 Gast2722
NotSolved
11.12.2019 15:23:41 tscharl
NotSolved
11.12.2019 15:35:36 Alex
NotSolved
Blau Button-Schleife, Werte in nächste Zeile einfügen.
 11.12.2019 16:11:47 tscharl
*****
Solved
12.12.2019 07:40:50 Alex
NotSolved

Ansicht des Beitrags:
Von:
tscharl		 Datum:
11.12.2019 16:11:47		 Views:
1032		 Rating:
     
Antwort:
 Nein
Thema:
Button-Schleife, Werte in nächste Zeile einfügen.		 
Private Sub CommandButton1_Click()
    Dim wks As Worksheet
    Dim addnew As Range
    Set wks = Tabelle8
    Dim LetzteZeile As Integer
    
    ' Die erste Zeile des Zielbereichs.
    LetzteZeile = 31
    
    'Sobald die erste Zelle der "LetzteZeile" gefüll ist, ...
    Do While wks.Cells(LetzteZeile, 1) <> ""
        ' ... wird die nächste Zeile betrachtet.
        LetzteZeile = LetzteZeile + 1
        ' Wenn das Ende des reservierten Bereichs erreicht ist (Zeile 35), ...
        If LetzteZeile = 35 Then
            ' ... gibt's eine Meldung und der Code wird bei "ende:" weiter ausgeführt.
            MsgBox "Der reservierte Bereich ist gefüllt, weitere Eingaben nicht möglich.", _
                vbInformation, "Hinweis"
            GoTo ende
        End If
    Loop
    ' Die Einträge werden nun in der ersten freien Zeile vorgenommen.
    Set addnew = wks.Cells(LetzteZeile, 1)
    '
    addnew.Offset(0, 0).Value = txt_1.Text
    addnew.Offset(0, 2).Value = combo_1.Value
    addnew.Offset(0, 5).Value = txt_2.Text
    ' Beende den Code der Schaltfläche.
    Set wks = Nothing
    Exit Sub
ende:
    ' Das Formular wird geschlossen, da keine weiteren Eingaben möglich sind.
    Unload Me
    Set wks = Nothing
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.12.2019 12:06:00 Alex
NotSolved
11.12.2019 14:05:54 tscharl
NotSolved
11.12.2019 14:15:31 Alex
NotSolved
11.12.2019 14:48:07 tscharl
NotSolved
11.12.2019 15:18:50 Gast2722
NotSolved
11.12.2019 15:23:41 tscharl
NotSolved
11.12.2019 15:35:36 Alex
NotSolved
Blau Button-Schleife, Werte in nächste Zeile einfügen.
 11.12.2019 16:11:47 tscharl
*****
Solved
12.12.2019 07:40:50 Alex
NotSolved