ComboBoxen vergleichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thorsten!
Ich habe mir nun Gedanken gemacht und versucht, Deine Idee in mein Projekt zu integrieren... ...und schon "meckert" mich die VBA-Prüfung an: Sie markiert mir "pboNoCh" und sagt "Variable nicht definiert" ...? Und da geht es schon los. Sei mir bitte nicht böse, aber in Sachen VBA mache ich die ersten größeren Schritte (...bin so langsam vom Makro-Recorder weg) und muss noch viel lernen. Ganz ehrlich: Ich weis eigentlich nicht, was ich in VBA unter einer "Variabelen" verstehen soll... ...auch ein weiterer Begriff wie "Objekte" löst ? aus. Und mit der Hilfe in VBA stehe ich auf Kriegsfuss.
Ich habe mir nun mal Erlaubt, den Code (bei dem Peter Feustel mir hier im Forum geholfen hat) hier reinzustellen. Ist es eine schwere Aufgabe, Dein Skript hier mit ein zu arbeiten bzw. Dein Skript mit Anpassungen im Grundgerüst zu belassen und in das Makroblatt des UserForms mit rein zusetzen?!?


Private Sub UserForm_Activate()
Dim lZeile  As Long
With Worksheets("Basisdaten")         'DropDown der ComboBoxPflege01
For lZeile = 10 To .Range("C65536").End(xlUp).Row
If .Range("E" & lZeile).Value  "" Then
ComboBoxPflege01.AddItem .Range("E" & lZeile).Value
End If
Next lZeile
End With
If ComboBoxPflege01.ListCount > 0 Then
ComboBoxPflege01.ListIndex = 0
End If
With Worksheets("Basisdaten")         'DropDown der ComboBoxPflege02
For lZeile = 10 To .Range("C65536").End(xlUp).Row
If .Range("E" & lZeile).Value  "" Then
ComboBoxPflege02.AddItem .Range("E" & lZeile).Value
End If
Next lZeile
End With
If ComboBoxPflege02.ListCount > 0 Then
ComboBoxPflege02.ListIndex = 1
End If
End Sub

Vielen Dank!
Gruß
Lenhard

Private Sub UserForm Activate". Ich habe dort den Bezug zum Makro "Sammlung" einfach _ folgendermaßen dazu gesetzt: Private Sub UserForm_Activate() Sammlung With TextBoxDatum .Text = Format(Date, "dd.mm.yyyy") .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With End Sub Letzteres müßte doch richtig sein?!? ...oder?! Vielen Dank nochmals! Gruß Lenhard

Private Sub ComboBoxPflege01_Change() Dim liIndex As Integer, lstrTxt As String If pboNoCh = True Then Exit Sub pboNoCh = True lstrTxt = ComboBoxPflege02.Text ComboBoxPflege02.Clear Do Until pstrSamml(liIndex) = "" If ComboBoxPflege01.Text pstrSamml(liIndex) Then ComboBoxPflege02.AddItem pstrSamml(liIndex) End If liIndex = liIndex + 1 Loop ' ComboBoxPflege02.Text = lstrTxt '###HIER WAR MECKER !!! pboNoCh = False End Sub

Hi Lenhard
Danke Danke! Solch Text wie den gerad von dir höre und lese (bestimmt nicht nur) ich doch immer wieder gerne :-)
Für dich nur diese Tipps:
Bleib immer am Ball! Du wirst es vielleicht nicht glauben, aber ich habe mir VBA fast nur mit Hilfe dieses Forums selbst beigebracht. Ich war anfangs auch einer von denen, die viele Fragen gestellt und noch mehr Antworten erhalten haben :-)
Aber nun hab ich die Seiten gewechselt..grins...stelle aber hin und wieder auch noch Fragen.
Denn wer nicht fragt, dem kann nicht (weiter)geholfen werden ;-)
Und die Excel eigene Hilfe kann ich als Nachschlagewerk nur empfehlen!
Sicher, sie kann diesem Forum nie nich das Wasser reichen :-), aber als Nachschlagewerk für die Syntax der ganzen Befehle fast unschlagbar.
Es ist zwar ein wenig widersinnig, aber um die Excel-Hilfe nutzen zu können, muss man Excel verstanden haben..lol...na ja..so einigermaßen zumindest ;-)
So..weiter viel Spaß mit Excel und VBA!
auch Grüße ausm Norden (HH) :-)
Thorsten

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBoxen vergleichen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread