Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1356to1360
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
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Platzhalter in vba Auswahl der Blattnamen

Platzhalter in vba Auswahl der Blattnamen
29.04.2014 14:02:04
Peter
Hallo,
ich möchte über VBA bestimmte Tabellenblätter auswählen. Der Name der gewünschten Tabellenblätter lautet immer 'irgendwas abc'.
Ich möchte nun die Tabellenblätter auswählen, die am Ende abc stehen haben. Leider krige ich die Syntax mit dem Platzhalter '*abc' nicht hin. Wie muss ich das in VBA formulieren?
Gruß,
Peter

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

Betreff
Datum
Anwender
Anzeige
LIKE "*abc" owT
29.04.2014 14:11:19
Rudi

AW: LIKE "*abc" owT
29.04.2014 14:24:16
Peter
Ich habe es versucht, aber in meinem Kontext muss ich wohl etwas anders machen. Hier mal der Code mit dem Versuch 
Sub CBFuellen()
'füllt die ComboBox mit den Werten aller benötigten Tabellenblätter
'Einträge der Combobox werde aktualisert wenn:
'Workbook geöffnet wird, Zieltabelle aktiviert wird, Datenübertragung durchgeführt wurde
Dim ws As Worksheet
Sheets("Zieltabelle").CBTabellen.Clear
For Each ws In Worksheets
Select Case ws.Name
Case "Zieltabelle", "Auswertung", "Ergebnis", "pbsvss gesamt", ws.Name Like "* _
pbsvss"
Case Else
If ws.Range("I1")  "schon exportiert" Then _
Sheets("Zieltabelle").CBTabellen.AddItem ws.Name
End Select
Next ws
'IF Anweisung verhindert Abbruch, falls Combobox leer
'Bei Änderungen wird immer der erste Eintrag der Liste angezeigt.
If Sheets("Zieltabelle").CBTabellen.ListCount = 0 Then
Sheets("Zieltabelle").CBTabellen.ListIndex = -1
Else
Sheets("Zieltabelle").CBTabellen.ListIndex = 0
End If
End Sub

Anzeige
So natürlich nicht, ...
29.04.2014 15:31:58
Luc:-?
…Peter,
denn Like ist ein VglsOperator (VBE-HilfeStichwort Operator Like ), da kommt nur True oder False raus und so wird ja wohl kein Blatt bei dir heißen… ;->
Du musst/kannst das also als eigene, zusätzliche Abfrage mit If … Then unter Case Else unterbringen.
Gruß Luc :-?
Besser informiert mit …

AW: So natürlich nicht, ...
29.04.2014 15:53:37
Peter
Ich habe es jetzt mal so geändert:
Case Else
If ws.Range("I1") "schon exportiert" And Not ws.Name Like "*pbsvss*" Then _
Sheets("Zieltabelle").CBTabellen.AddItem ws.Name
Es funktioniert. Danke für die wertvollen Tipps.

Anzeige
Alternative zeigt Rudi: alle Cases auf Boolean ...
29.04.2014 20:47:08
Luc:-?
…umstellen, Peter;
aber so, wie du es jetzt hast, ist es den Meisten doch vertrauter… ;-)
Gruß Luc :-?

AW: LIKE "*abc" owT
29.04.2014 15:41:29
Rudi
Hallo, 
  For Each ws In Worksheets
Select Case True
Case ws.Name = "Zieltabelle", _
ws.Name = "Auswertung", _
ws.Name = "Ergebnis", _
ws.Name = "pbsvss gesamt", _
ws.Name Like "*pbsvss"
Case Else
If ws.Range("I1")  "schon exportiert" Then _
Sheets("Zieltabelle").cbtabellen.AddItem ws.Name
End Select
Next ws

Gruß
Rudi

300 Forumthreads zu ähnlichen Themen

Sheetcode in VBA project schreiben
Dirk

Hallo Forum,
ich habe mal wieder ein Problem und brauche Eure Hilfe.
Ich versuche per VBA Macrocode in ein Sheet zu schreiben. Das funktioniert auch fuer den ersten Schleifendurchlauf meines Programms. Beim zweiten durchlauf stuerzt Excel leider ab :-(
Woran koennte das liegen? Anb...
27.08.2008 14:10:00
Thread-ID: 1005083
5 Beiträge
Anzeige
Sheet-Name einer Variablen zuweisen
TommiH

Hallöchen,
hmm, bei dieser Variante bekomme ich eine Fehlermeldung, die mir allerdings nicht wirklich hilft, den Fehler zu finden. Was mache ich da falsch?
Dim v1 As String
v1 = ActiveSheet.Name
Sheets.Add After:=v1
ActiveSheet.Name = "Dummy"
Worksheets(v1).Activate
...
01.09.2008 11:04:00
Thread-ID: 1006356
4 Beiträge
Sheet-Name in Zelle
Frank

Hallo,
mit folgendem Code lege ich ein neues Sheet an
ich möchte das der Namen des neuen Sheets auch in Zelle A2 eingetragen wird.
Nur wie?
Könnte mir bitte jemand weiterhelfen.
Private Sub ComboBox6_Change() End Sub
Private Sub CommandButton1_Click() Application.Sc...
30.10.2008 11:39:38
Thread-ID: 1020547
4 Beiträge
Anzeige
Monatsnamen mit Jahr (VBA)
Andre´

Hallo alle zusammen,
mit folgenden Makro schreibe ich das aktuelle Datum in A1:
Sub Monat() Range("A1") = Str(Date) End Sub
in A1 steht dann:
18.11.2008
Jetzt möchte ich aber den Monatsnamen und das Jahr in A1 wie folgt haben:
November 2008
Kann mir bitte jemand e...
18.11.2008 17:30:00
Thread-ID: 1025713
11 Beiträge
per VBA kopieren, kein Namenskonflikt
Peter

Guten Tag
Beim Kopieren eines Bereiches mit VBA in eine andere Tabelle erhalte ich die Meldung:
"Die Formel, die eingefügt werden soll, enthält einen Namen, der bereits in der Zieltabelle vorhanden ist. Soll die vorhandene Definition von 'xxxxx' verwendet werden?
* Klicken Sie auf '...
11.12.2008 10:45:09
Thread-ID: 1031973
3 Beiträge
worksheet.activate über Name aus Eigenschaften
michael

Hallo Kollegen.
Folgendes Thema:
Ich habe eine Datei als Kopiervorlage, bei der das erste Blatt nicht umbenannt werden soll, weil ich beim schließen der Datei dorthin zurück springe und Aufgaben erledige.
Erst habe ich über Application.CommandBars("ply").Enabled = True die Funktion...
20.01.2009 19:10:54
Thread-ID: 1041968
5 Beiträge
Namensvergabe per VBA
Boris

Hallo,
ich verwende untenstehenden Code, um per VBA automatisch Namen zuzuweisen. Wenn in Zeile 1 eines Blattes (die Überschriften enthält) der Wert einer Zelle geändert wird, wird ein Name erstellt aus Blattname + "." + Überschrift (z.B. Umsatz.2008), mit dem Bezug=Blattname!$X$#2, wobei X...
30.01.2009 12:14:00
Thread-ID: 1045354
8 Beiträge
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox

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
4
5
3
3
4
10
2
4
7
7
11
4
3
2
1
11
2
6
7
7
3
5
5
5
11