Thema Datum  Von Nutzer Rating
Antwort
Rot commandButton
 13.05.2021 16:51:18 Michael
NotSolved
13.05.2021 18:32:14 Gast49223
NotSolved

Ansicht des Beitrags:
Von:
Michael		 Datum:
13.05.2021 16:51:18		 Views:
1646		 Rating:
     
Antwort:
  Ja
Thema:
commandButton

Hallo zusammen,

ich bin gerade dabei eine kleine Mitgliederliste aufzubauen. Das Ganze soll in UserForm dargestellt werden.

Meine TextBoxen Frage ich nach Inhalt ab ob Leer oder gefüllt. Das geht auch. Aber ich möchte erst den CommandButton aktiviert haben wenn alle Felder ausgefüllt sind. Da scheitere ich derzeit noch. Heir mal ein Auszug vom VBA

Private Sub Button_erfassen_neu_Click()

 'Erste freie Zeile ermitteln
    Dim last As Integer
    last = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
    
'id um 1 erhöhen
 Dim lngLast As Long
 Dim lngMax  As Long
    lngLast = Cells(Rows.Count, 2).End(xlUp).Row
    lngMax = Application.WorksheetFunction.Max(Columns("A"))

Cells(lngLast + 1, 1).Value = lngMax + 1
    
  
'Vorname
If TextBox1_vorname = "" Then MsgBox "Bitte geben Sie einen Vornamen ein:"
Cells(last, 2).Value = TextBox1_vorname

'Nachname
If TextBox2_Nachname = "" Then MsgBox "Bitte geben Sie einen Nachnamen ein:": Exit Sub
Cells(last, 3).Value = TextBox2_Nachname

'Strasse
If TextBox3_strasse = "" Then MsgBox "Bitte geben Sie die Straße ein:": Exit Sub
Cells(last, 4).Value = TextBox3_strasse

End sub

Wie kann ich das angehen?

 

Gruß

Michael

 

 

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
Rot commandButton
 13.05.2021 16:51:18 Michael
NotSolved
13.05.2021 18:32:14 Gast49223
NotSolved