Über Combobox jeweiliges Blatt auswählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox2_Change() Dim lzeile As Integer ListBox2.Clear ListBox2.AddItem lzeile = 2 Do While Trim(CStr(Worksheets(ComboBox2.Value).Cells(lzeile, 1).Value)) "" 'Aktuelle Zeile in die ListBox eintragen ListBox2.AddItem Trim(CStr(Worksheets(ComboBox2.Value).Cells(lzeile, 2).Value) & " " & _ Worksheets(ComboBox2.Value).Cells(lzeile, 1).Value) lzeile = lzeile + 1 'Nächste Zeile bearbeiten Loop End Sub

Hi
das geht am einfachten, in dem du die Textbox mit der entsprechenden Ausgabezelle über die Eigenschaft ControlSource verknüpfst.
Dann sind Textbox und Zelle direkt miteinnander verknüpft und jede Änderung die du in der Textbox machst, wird dann automatisch in die Zelle zurückgeschrieben.
dh statt der Befüllung der Textbox mit

TextBox2 = Tabelle1.Cells(lZeile, 2).Value

schreibst du (Spalte entsprechen anpasen):

TextBox2.ControlSource = "'" & Tabelle1.Name & "'!B" & lZeile

damit wird automatisch der Zelleninhalt in der Textbox angezeigt und der Textboxwert sofort in die Zelle geschrieben sobald du die Textbox verlässt.
Dann brauchst du da nichts weiter programmieren.
Ein "Änderungen verwerfen" bzw "Schließen ohne Speichern" gibt es dann aber nicht mehr.
Gruß Daniel

Hallo,
Danke für deine Hilfe. Funktioniert auch im Großen und Ganzen 
Dazu jedoch noch meine Anmerkungen.
Page 1: Ich habe den Code von dir eingefügt, funktioniert soweit, aber irgendwo fehlt mit noch etwas weil die Datensätze nicht mehr gefunden werden.
Page2:
- In der Combobox sollten nur bestimmte Blätter angezeigt werden (1 und 2) alle anderen nicht. Das Ganze sollte jedoch noch erweiterbar sein.
- In der Listenbox sollte die Daten erst ab Zeile 2 aufgeführt werden. Ebenso sollten nur Zeilen aufgeführt werden die nicht leer sind.
Ich hätte hierzu noch so ein Thema, dass ich noch damit verbinden möchte.
Ich möchte in Page 2 über den Button drucken und in Abhängigkeit der Combox die Daten der ausgewählten Tabelle ab einer bestimmten Zeile (2) durchlaufen. Wenn nun in Spalte H der Werte P steht, soll die laufende Nr. der Zeile in das Blatt A in Zelle A1 übertragen werden. Desweiteren soll in Zelle A2 der Name des ausgewählten Blattes aus der Combobox übertragen und das Blatt ausgedruckt werden. Danach werden die Daten des ausgewählten Blattes bis zum nächsten Datensatz mit dem Werte P in der Spalte H durchlaufen.
Kannst du mir hierzu nochmals weiterhelfen?
Dazu anbei nochmals die bisherige Datei mit deinen Hilfen.
https://www.herber.de/bbs/user/98198.xlsm
Vielen lieben Dank.
Gruß
Ich hatte hierzu bereits den nachfolgenden Code in einem Modul verwendet, jedoch ohne die das Kriterium der Blattwahl über die Combobox. Der Code ist aus einer anderen Datei. Deshalb passen die Bezüge nicht zu meiner jetzigen Datei.
Option Explicit

Sub Seriendruck()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("1")
iRow = 9
Do Until IsEmpty(wks.Cells(iRow, 1))
Worksheets("2").Range("$G$1") = wks.Cells(iRow, 1)
Worksheets("3").Range("$G$1") = wks.Cells(iRow, 1)
Worksheets("2").PrintOut
Worksheets("3").PrintOut
iRow = iRow + 1
Loop
End Sub

Beliebteste Forumthreads (12 Monate)

Über Combobox jeweiliges Blatt auswählen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Über Combobox jeweiliges Blatt auswählen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread