Thema Datum  Von Nutzer Rating
Antwort
10.02.2020 11:10:14 Eva
NotSolved
10.02.2020 11:29:04 Gast94777
NotSolved
Rot UserForm
10.02.2020 12:13:44 Eva
NotSolved
10.02.2020 12:28:38 Mase
NotSolved
10.02.2020 13:10:00 Eva
NotSolved
10.02.2020 13:16:30 Mase
NotSolved
10.02.2020 14:34:57 Eva
NotSolved
10.02.2020 15:08:20 Mase
Solved
10.02.2020 15:50:36 Eva
Solved
10.02.2020 17:18:00 Mase
NotSolved
10.02.2020 21:57:37 Eva
NotSolved

Ansicht des Beitrags:
Von:
Eva		 Datum:
10.02.2020 12:13:44		 Views:
516		 Rating:
     
Antwort:
  Ja
Thema:
UserForm 
Private Sub CommandButton1_Click()

Dim emptyRow As Long

Set myRange = Worksheets("Tabelle3").Range("A:A")

emptyRow = WorksheetFunction.CountA(myRange) + 1

If TextBox1.Value = "" Then MsgBox "Bitte Namen eingeben!"

If TextBox1.Value <> "" Then myRange.Cells(emptyRow, 1).Value = TextBox1.Value

End Sub

 

Das reicht aus, um die Namen einzufügen, allerdings habe ich noch nichts, was die doppelten Werte verhindert. DIe Idee war jetzt, zu prüfen, ob der eingegebene Text bereits in Spalte A existiert. Falls ja, soll eine MsgBox darauf hinweisen. Falls nicht, soll das nächste UserForm zum Abstimmen aufpoppen.

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
10.02.2020 11:10:14 Eva
NotSolved
10.02.2020 11:29:04 Gast94777
NotSolved
Rot UserForm
10.02.2020 12:13:44 Eva
NotSolved
10.02.2020 12:28:38 Mase
NotSolved
10.02.2020 13:10:00 Eva
NotSolved
10.02.2020 13:16:30 Mase
NotSolved
10.02.2020 14:34:57 Eva
NotSolved
10.02.2020 15:08:20 Mase
Solved
10.02.2020 15:50:36 Eva
Solved
10.02.2020 17:18:00 Mase
NotSolved
10.02.2020 21:57:37 Eva
NotSolved