Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
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
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zwischen den Arbeitsblättern hin und her schalten

Forumthread: zwischen den Arbeitsblättern hin und her schalten

zwischen den Arbeitsblättern hin und her schalten
15.12.2014 12:34:43
Wolfgang
Hallo alle gemeinsam. Hab ein Problem, bei dem ich mit meinen begrenzten VBA-Kenntnissen nicht weiter komme:
um die Liste einer ComboBox mit Daten zu füllen, habe ich folgenden Skript geschrieben: ...
...
Sheets("Dst").Select
ActiveSheet.Range("AK3").Select
Do Until ActiveCell = ""
UserForm2.ComboBox2.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Sheets("pers.D").Select
UserForm2.Show
...
...
Mir gefällt allerdings das Hin und Herschalten zwischen den Arbeitsblättern nicht. Hat jemand eine bessere Idee, um dies zu vermeiden.
Vielen Dank im Voraus.
Wolfgang
aus dem Erzgebirge

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zwischen den Arbeitsblättern hin und her schalten
15.12.2014 12:42:20
Rudi
Hallo,
Mir gefällt allerdings das Hin und Herschalten zwischen den Arbeitsblättern nicht
Musst du auch nicht.
z.B. 
i=3
with sheets("dst")
do until .cells(i, 37) =""
UserForm2.ComboBox2.AddItem .Cells(i, 37)
i=i+1
loop
Gruß
Rudi

Anzeige
AW: zwischen den Arbeitsblättern hin und her schalten
15.12.2014 13:37:50
Wolfgang
Hallo Rudi,
hab es eingefügt und es klappt. Ich musste allerdings noch End With nach Loop einfügen.
Danke für Eure Mühe
Wolfgang
aus dem Erzgebirge

AW: zwischen den Arbeitsblättern hin und her schalten
15.12.2014 12:46:41
yummi
Hallo Wolfgang,

dim wksDst as worksheet
dim wkspers as worksheet
Set wksDst = Sheets("Dst")
Set wkspers = Sheets("pers.D")
i = 3
j = 37
Do Until wksDest.Cells(i,j).value  = ""
UserForm2.ComboBox2.AddItem ActiveCell.Value
i = i+1
Loop
wkspers.Select     'warum auch immer du auf das sheet schalten willst, kannst du auch weglassen, _
wenn du da nix machst
UserForm2.Show
so sollte dein umschalten weg sein, musst du nämlich nicht um die sheets anzusprechen
Gruß
yummi
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