Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe bei codeänderung bitte

Forumthread: Hilfe bei codeänderung bitte

Hilfe bei codeänderung bitte
09.11.2007 22:16:31
Thorsten_Z
Moin liebes Forum,
txtJA.RowSource = "Tabelle2!J2:J7"
mit diesem Code fülle ich die Combobox mit den Daten aus dem angegebenen Bereich. Aber wie kann ich diesen Bereich Variabel machen? also nicht nur bis J7, sondern so weit, wie Spalte J Daten enthält. (Ausgenommen natürlich die Überschrift in der ersten Zeile)
Gruß
Thorsten

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei codeänderung bitte
09.11.2007 22:25:00
Ramses
Hallo
probiers mal so
Dim tarString as string
Dim lastRow as long
lastRow = Range("J65536").end(xlup).row
tarString = "Tabelle2!J2:" & lastrow
txtJA.RowSource = tarString
Gruss Rainer

AW: Hilfe bei codeänderung bitte
09.11.2007 22:26:00
Ramses
Hallo
probiers mal so
Dim tarString as string
Dim lastRow as long
lastRow = Range("J65536").end(xlup).row
tarString = "Tabelle2!J2:" & lastrow
txtJA.RowSource = tarString
Gruss Rainer

Anzeige
Hoppla,... doppelt und erst noch mit Fehler...
09.11.2007 22:27:12
Ramses
Hallo
es muss natürlich statt
tarString = "Tabelle2!J2:" & lastrow
so heissen
tarString = "Tabelle2!J2:J" & lastrow
Gruss Rainer

AW: Hoppla,... doppelt und erst noch mit Fehler...
09.11.2007 22:36:58
Thorsten_Z
Hallo Rainer,
Danke für deine vielen Antworten :-) ich probiere es morgen aus. So oder so bekommst du dann eine Rückmeldung von mir.
Gruß
Thorsten

Anzeige
AW: Hoppla,... doppelt und erst noch mit Fehler...
10.11.2007 21:28:00
Thorsten_Z
Hallo Rainer,
Ich habe deinen Code in meinen gebaut und sieht nun so aus:

Private Sub UserForm_Initialize()
Dim tarString As String
Dim lastRow As Long
lastRow = Range("J65536").End(xlUp).Row
tarString = "Tabelle2!J2:J" & lastRow
txtVorherigeraufenthaltsort.RowSource = tarString
txtGeschlecht.RowSource = "Tabelle2!B2:B3" 'dies darf festgelegt sein
End Sub


er liest mir nun aber nur die ersten beiden Zellen ein, also J1 und J2. Schon garnicht verstehe ich, warum er schon ab der Überschrift einliest obwohl im code ja ...Tabelle2!J2... anders definiert... hilf mir bitte nochmal auf die Sprünge.
Gruß
Thorsten

Anzeige
AW: Hoppla,... doppelt und erst noch mit Fehler...
10.11.2007 22:22:00
Ramses
Hallo
Das Problem kann sein, dass die Tabelle2 nciht die aktive Tabelle ist, daher muss der String so lauten
lastRow = Worksheets("Tabelle2").Range("J65536").End(xlUp).Row
Dann sollte es gehen
Gruss Rainer

AW: Hoppla,... doppelt und erst noch mit Fehler...
10.11.2007 23:01:00
Thorsten_Z
Hallo,
PERFEKT!!! Tabelle zwei ist tatsächlich nicht die Aktive Tabelle. Daran hatte ich nicht gedacht.
Vielen Dank
Gruß
Thorsten
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige