Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige