wie lade ich diese Combobox?

Hallo,
schade, ich dachte ich bekomme es selber hin

Dieser Code wurde vor kurzem ins Forum gestellt.
Da ich nicht das Tabellenblatt wechseln möchte und keine select anweisungen nutze läd sich diese Combobox nicht

(Befinde mich auf Tabellenblatt2 und die Liste in Tabellenblatt1)

Habe es schon mal mit einer with Anweisung versucht und die Punkte verteilt. Funktioniert nur leider nicht. Habe erstmal die Punkte wieder entfernt.

Kann mir jemand helfen???

Private Sub UserForm_Initialize()
Dim LoI As Long
Dim LoLetzte As Long

With Sheets("Tabelle1")
If [a65536] = "" Then
LoLetzte = [a65536].End(xlUp).Row
Else
LoLetzte = 65536
End If
For LoI = 1 To LoLetzte
ComboBox1.AddItem Cells(LoI, 1)
Next LoI
End With
End Sub

Gruß
Felix

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Felix

die Tabelle ist schon in der Aktiven Tabelle. Ich habe meinen alten Code umgebaut ohne Probleme.


Option Explicit

	

Private Sub CommandButton1_Click()

	'   Eintrag löschen

	If ComboBox1.Value <> "" Then

		Cells(ComboBox1.ListIndex + 1, 1).Delete

		ComboBox1.RemoveItem (ComboBox1.ListIndex)

		ComboBox1.Value = ""

	End If

End Sub

	

Private Sub CommandButton2_Click()

	'   Namen Nachtrage

	If ComboBox1.Value <> "" Then

		With Worksheets("Kunden")

			Dim LoLetzte As Long

			If .[a65536] = "" Then

				LoLetzte = .[a65536].End(xlUp).Row

			Else

				LoLetzte = 65536

			End If

			.Cells(LoLetzte + 1, 1) = ComboBox1.Value

			ComboBox1.Clear

			'       Sortieren der Liste ohne Überschrift

			.Range("A1").Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:= _

			xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

			DataOption1:=xlSortNormal

			UserForm_Initialize

		End With

	End If

End Sub

	

Private Sub UserForm_Initialize()

	Dim LoI As Long

	Dim LoLetzte As Long

	With Worksheets("Kunden")

		If .[a65536] = "" Then

			LoLetzte = .[a65536].End(xlUp).Row

		Else

			LoLetzte = 65536

		End If

		For LoI = 1 To LoLetzte

			ComboBox1.AddItem .Cells(LoI, 1)

		Next LoI

	End With

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

241 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

wie lade ich diese Combobox?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

241 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread