Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1404to1408
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1404to1408
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eintrag aus Liste als Worksheet aufrufen

Eintrag aus Liste als Worksheet aufrufen
30.01.2015 09:37:36
Dieter
Guten Morgen libe Excelgemeinde.
Ich komm mal wieder nicht weiter, mein Makro bleibt hängen.
Aus einer Listbox wähle ich den Namen eines Blattes aus.
Die Zellen aus diesem Blatt (andere Arbeitsmappe) sollen anschließend Kopiert werden.
Was mache ich falsch?
Dim TR_Blatt As Worksheet
Set TR_Blatt = UserForm1.ListBox1
Workbooks("VorhandeneTrainingsmappen.xlsm").Activate
Worksheets(TR_Blatt).Activate
Cells.Select
Selection.Copy

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eintrag aus Liste als Worksheet aufrufen
30.01.2015 09:43:36
Klaus
Hallo Dieter,
da können wir nur in die Glaskugel schauen, wir wissen ja nicht was in ListBox1 genau steht, was ausgewählt ist und so weiter. Vielleicht lädst du die Datei einfach mal hoch?
Solange du nicht weisst woran es liegt hilft es vielleicht schon, den Fehler einfach abzufangen. Hilft dir dieses Konstrukt weiter?
Sub DeinSub()
Dim TR_Blatt As Worksheet
Set TR_Blatt = UserForm1.ListBox1
Workbooks("VorhandeneTrainingsmappen.xlsm").Activate
If WksSheetExists(TR_Blatt) Then
Worksheets(TR_Blatt).Activate
Cells.Select
Selection.Copy
'[...dein sonstiger Code ...]
Else
MsgBox ("Ein Arbeitsblatt namens " & TR_Blatt & " gibt es nicht!")
End If
End Sub
Function WksSheetExists(sSheet As String) As Boolean
Dim wks As Object
On Error Resume Next
Set wks = Sheets(sSheet)
If Not wks Is Nothing Then
WksSheetExists = True
End If
On Error GoTo 0
End Function
Grüße,
Klaus M.vdT.

Anzeige
AW: Eintrag aus Liste als Worksheet aufrufen
30.01.2015 10:02:05
Dieter
Hallo Klaus,
bei der Zeile 2
"Set TR_Blatt = UserForm1.Listbox1" kommt die Meldung Typenunverträglich

AW: Eintrag aus Liste als Worksheet aufrufen
30.01.2015 10:05:11
Dieter
Hallo Klaus,
in ListBox1 stehen alle vorhandenen Blattnamen (sind also existent). Eins davon wähle ich in der Listbox1 aus und dieses Blatt soll für das Kopieren im Hintergrund ausgewählt werden

AW: Eintrag aus Liste als Worksheet aufrufen
30.01.2015 10:53:44
Klaus
Ah, ich habs:
das hier ist Falsch:
Dim TR_Blatt As Worksheet
Set TR_Blatt = UserForm1.ListBox1
TR_Blatt ist kein Worksheet, sondern ein String! Und .Value gehört noch rein.
Dim TR_Blatt As String
Set TR_Blatt = UserForm1.ListBox1.Value
funktioniert.
Ist das ganze als String aktiviert, dann funktioniert auch
Worksheets(TR_Blatt).Activate
WÄHRE TR_Blatt wirklich ein Worksheet (was es nicht ist), dann müsstest du es auch direkt ansprechen:
TR_Blatt.Activate
Aber Worksheets kannst du nicht in Listboxen speichern.
Grüße,
Klaus M.vdT.

Anzeige
ohne SET
30.01.2015 10:55:04
Klaus
Natürlich ohne SET:
Dim TR_Blatt As String
TR_Blatt = UserForm1.ListBox1.Value
Worksheets(TR_Blatt).Activate

Du kannst die Variable sogar weglassen und direkt:
Worksheets(UserForm1.ListBox1.Value).Activate
das Blatt aufrufen.
LG,
Klaus

30 Forumthreads zu ähnlichen Themen

dynamische Range Anzeige im TB
Reinhardt

Hallo.
Ich habe in einem TB Daten in den Zeilen 1 - 5000, ab der Spalte B, C, D.... stehen
In Spalte A trage ich jeweils ein Range ein. z.B. N50:R99.
Dieses frage ich in einem zweiten TB ab, um in den entsprechenden Bereich zu "hüpfen".
Mein Problem:
Füge ich Zeilen ein,...
18.09.2008 08:24:14
Thread-ID: 1010590
3 Beiträge
Anzeige
For Each rCell In Worksheets("_HISTORY").Range("_H
Peter

Guten Abend
Weshalb läuft mein Code nicht, wenn ich
den Range wie folgt anspreche:
For Each rCell In Worksheets("_History").Range("_HIST")
...
Next
Wenn ich "In Wroksheets" weglasse, funktioniert es.
Der Worksheet-Name ist richtig geschrieben, wie die Abfrage im Dire...
09.12.2013 22:29:02
Thread-ID: 1341925
4 Beiträge
LinkedCell & ListFillRange im Makro
hendrik

Hi Excelfreunde!Ich möchte eine ComboBox von einem Makro erstellen lassen. Allerdings habe ich noch nicht herausgefunden, wie ich in einem Makro die LinkedCell und die ListFillRange der ComboBox bestimmen kann.Hoffentlich kann mir einer von euch helfen.
Dank im Vorraus!
Grüße Hendrik...
25.07.2002 01:30:17
Thread-ID: 140250
3 Beiträge
Anzeige
Atomatismus vonPrivate Sub Worksheet_change stoppe
markus

Hallo Leute,
kann ich irgendwie steuern, dass die Routine
"Private Sub Worksheet_change(ByVal Target As Range)"
nicht grundsätzlich bearbeitet wird?
Wenn ich Daten von außerhalb hereinkopiere bekomme ich nämlich Schrierigkeiten.
Danke für eure Hilfe
Markus
16.03.2017 11:29:02
Thread-ID: 1547796
3 Beiträge
Automatisierung Range Balkendiagramm
heiko

Hallo zusammen,
ich habe ein Balkendiagramm erstellt mit 2 X-Achsen. Jetzt soll der Diagrammbereich per VBA angepasst warden, sobald sich die Anzahl der anzuzeigenden Zeilen ändert.
Dazu verwende ich folgenden Code (Ausschnitt): Sub Chart_anpassen() Dim Chart_MinScale As Double Dim Char...
17.07.2017 13:49:17
Thread-ID: 1569581
6 Beiträge
Dynamischce Range bei Diagrammerstellung
Dennis

Hallo zusammen,
ich bin relativ neu im VBA-Bereich und habe eine Frage bzgl. einer dynamischen Range für ein Diagramm.
Ich habe in einer Tabelle Daten. Diese werden per Makro in den Reiter "Produktivität" kopiert (geht wahrscheinlich auch schöner).
Aus diesen Daten möchte ich Diagra...
06.02.2018 13:54:37
Thread-ID: 1607244
6 Beiträge
Automatisch Range mit Eingabewert multiplizieren
Torsten

Hallo,
ich habe ein paar Fragen.
1. Ich habe eine Excel-Liste erstellt und möchte das eine bestimmte Range mit einem Eingabewert multipliziert wird. Bei mir funktioniert dieser Befehl allerdings nur für die erste Zelle, danach kommt eine Fehlermeldung. Was ist hier falsch?
Range...
18.07.2018 08:43:57
Thread-ID: 1634547
11 Beiträge
Dynamische Zellen Range Löschen anhand Spaltenwert
Trevor_M

Mein Ziel ist es mit VBA in einer Tabelle bestimmte Ranges einer Spalte zu leeren wenn in Zeile 57 das Wort "Nein" steht.
Für jede Spalte sollte das Makro überprüfen ob in der 57 Zeile das Wort "Nein" steht und dann in der entsprechenden Spalte den Wert in den Zeilen (9-17,19-21,23-25,27-3...
22.11.2018 09:30:39
Thread-ID: 1658880
12 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
3
2
6
2
5
5
10
11
9
2
1
2
12
2
8
14
1
7
5
4
4
1
4