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
1068to1072
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter auswählen & in neue Datei kopieren

Tabellenblätter auswählen & in neue Datei kopieren
29.04.2009 09:23:32
Andreas
Guten Morgen. Ihr Könner!
Ich habe hier eine Excel-Datei mit unzähligen Tabellenblättern, die wie folgt beschriftet sind:
LN-Mo, LN-Di, ... LN-Sa
SN-Mo, SN-Di, ... SN-Sa
usw. usf.
Nun will ich per Inputbox zum Beispiel alle Tabellenblätter mit "Mo" auswählen und in eine neue Datei kopieren.
Bitte um Hilfe!
lg Andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If Right(Worksheets(X).Name, 2) = Inputbox
29.04.2009 09:50:18
Matthias
Hallo Andreas
mal ans Ansatz
Ich aktiviere hier im diesem Beispiel nur die Blätter.

Option Explicit
Sub alleWT()
Dim X As Long
Dim Frage As String
Frage = InputBox("Welchen Wochentag" & vbLf & vbLf & "Mo=Montag" & vbLf & "Di=Dienstag" & vbLf & _
"Mi=Mittwoch" & vbLf & "Do=Donnerstag" & vbLf & "Fr=Freitag" & vbLf & "Sa=Samstag" & vbLf & "So=Sonntag")
For X = 1 To Worksheets.Count
If Right(Worksheets(X).Name, 2) = Frage Then Worksheets(X).Activate
Next
End Sub


Das kannst Du Dir ja umstricken, so das nicht nur aktiviert wird sondern kopiert
Das überlasse ich aber Dir
Gruß Matthias

Anzeige
AW: If Right(Worksheets(X).Name, 2) = Inputbox
29.04.2009 11:12:31
Andreas
Vielen Dank für die schnelle und hochwertige Hilfe!
Es ist immer wieder eine Freude mit Euch zu tun zu haben.
lg Andreas
AW: Tabellenblätter auswählen & in neue Datei kopieren
29.04.2009 09:51:26
Tino
Hallo,
versuche es mal hiermit, den * kannst Du als Platzhalter verwenden.
z. Bsp. alle Tabellen die im Namen Mo enthalten wäre *Mo*
Sub Test()
Dim MeAr() As String
Dim iCount As Integer
Dim meTab As Worksheet
Dim strTabName As String

'* als Platzhalter verwenden, Groß u. Kleinschreibung wird beachtet 
strTabName = InputBox("Name der Tabellen ""*"" als Platzhalter verwenden")

If StrPtr(strTabName) > 0 Then
    For Each meTab In ThisWorkbook.Worksheets
      If meTab.Name Like strTabName Then
       Redim Preserve MeAr(iCount)
       MeAr(iCount) = meTab.Name
       iCount = iCount + 1
      End If
    Next meTab
End If

If iCount > 0 Then Sheets(MeAr).Copy


End Sub


Gruß Tino

Anzeige
AW: Tabellenblätter auswählen & in neue Datei kopieren
29.04.2009 11:11:31
Andreas
Die Geschwindigkeit und die Qualität der Hilfe in diesem Forum ist sagenhaft
Vielen, vielen Dank!
lg Andreas

306 Forumthreads zu ähnlichen Themen

Inhalt aus mehreren Tabellen einfügen
Fred

Hallo zusammen.
Ich bin seit längerem schon auf der suche nach einem Makro und kann aber ein ähnliches wie ich es bräuchte nicht. Finde.
Es geht darum, das ich wenn ich auf einen Button klicke möchte ,das das Makro mehrere Von mir benannte Ordner duch sucht nach fest vorgeschriebenen X...
21.08.2008 18:04:19
Thread-ID: 1003605
2 Beiträge
Anzeige
einfaches Bild einfüges aus currdir
Ludes

Hallo zusammen,
- xls-Datei mit Makro in Ordner gespeichert.
- in selbem Ordner einen Ordner "Bilder" mit verschiedenen Bildern
- in Zelle A1 steht der Dateiname eines der Bilder
Brauch nun ein Marko, dass aus dem aktuellen Ordner in der xls-Datei gespeichert ist ein Bild in Zel...
25.08.2008 10:12:55
Thread-ID: 1004386
3 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Anzeige
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 Beiträge
Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
3 Beiträge

Links zu Excel-Dialogen

InputBox

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
1
2
2
7
3
4
6
33
4
2
1
2
2
1
4
2
6
8
2
3
1
3
5
5
4