Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
25.09.2025 14:32:49
Excel-Dateien zusammen führen (Tabellen)
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter auswählen & in neue Datei kopieren

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten 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
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
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
Eingaben aus Tabellen mit Userform befüllen
Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...
06.09.2008 11:42:00
Thread-ID: 1007825
4 Beiträge
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
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
Anzeige
Kriterien in Query aus Exceltabelle
Joachim

Hallo zusammen,
ich hab heute entdeckt, dass ich mit dem Query direkt auf meine Oracle-DB komme. Mal wieder was neues gelernt.
Ich habe die Abfrage im Query mit Kriterien gebastelt und übergebe das Ergebnis nach Excel. Alles wunderschön. Nur sehr statisch.
Ich möchte aber per VBA:
20.11.2008 15:52:00
Thread-ID: 1026469
2 Beiträge
XML Tabelle aus Internet in Excel laden
Tobias

Hallo Leute,
hab mal wieder ne frage an die Experten ;).
Würde gerne eine XML-Tabelle aus dem Internet laden. Hab nach längerer Recherche leider nix dazu gefunden. Wie sollte ich das angehen.
Bischen Coding für den anfang wäre ganz gut in welche variablen kann ich xml schreiben? Wie...
20.11.2008 19:45:55
Thread-ID: 1026529
3 Beiträge
Bereich als Bild in bestimmter Größeexportieren
dirkraeder

Hallo Excelgemeinde!!
Ich habe ein Problem und benötige eure Hilfe!
Ich habe mir eine Excel Datei gebastelt. In dieser Datei habe ich ein Formular, dass sich durch Auswahl in einem Kombinationsfeld verändert.
Nun muss ich die Ansicht dieses Formulars als GIF-Bilddatei immer wieder m...
26.11.2008 11:08:00
Thread-ID: 1027962
3 Beiträge
screenshot als JPG speichern
heike

Hallo experten,
ich suche eine VBA - Lösung um einen Screenshot zu erzeugen und diesen als JPG abzuspeichern.
Eine Lösung, um eine BMPdatei zu speicher habe ich bereits (sieh unten).
Danke Nepumuk.
Am besten währe genau dieser Ansatz, weil ich das Bild beschneiden kann.
Nur...
16.12.2008 20:47:09
Thread-ID: 1033426
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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