Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.06.2025 22:11:12
Hilfe bei Urlaubsplan
24.06.2025 21:29:43
Gesamtlänge meiner Videos
24.06.2025 19:48:50
Blattansichten
24.06.2025 16:58:47
Werte/Zeilen einrücken (ein-ausblenden)
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Help - Tabellenblätter nacheinander auslesen

Forumthread: Help - Tabellenblätter nacheinander auslesen

Help - Tabellenblätter nacheinander auslesen
07.10.2008 19:22:33
Markus
Hallo zusammen,
ich habe eine Datei mit verschiedenen Tabellen.
In der Tabelle 1 (Spalte A, beginnend mit Zeile 2) sind alle Tabellennamen aufgeführt, die in der Datei nach der Tabelle 1 vorkommen.
Ich möchte nun in einer variablen Schleife (so oft, wie Namen in der Tabelle 1 stehen) die aufgeführten Tabellennamen aktivieren und dort jeweils den Zellinhalt der Zellen B21:J21 in die Tabelle 1 (B:J) kopieren.
Kann mir da jemand helfen? Vielen Dank im Voraus!
Schöne Grüße
Markus
Anzeige

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

Kategorie
Benutzeranpassung
Tags
#tabellenblatt aktivieren #vba schleife #zelleninhalt kopieren
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Help - Tabellenblätter nacheinander auslesen
07.10.2008 19:41:00
Tino
Hallo,
so sollte es funktionieren
Modul Modul1 
Option Explicit 
 
Sub Test() 
Dim A As Long 
A = 2 
 With Application 
  .ScreenUpdating = False 
    With Tabelle1 
        Do While Cells(A, "A") <> "" 
         Sheets(Cells(A, "A").Text).Range("B21:J21").Copy .Cells(A, "B") 
         A = A + 1 
        Loop 
    End With 
  .ScreenUpdating = True 
 End With 
End Sub


Gruß Tino

Anzeige
noch ein Punkt vergessen...
07.10.2008 19:43:50
Tino
Modul Modul1 
Option Explicit 
 
Sub Test() 
Dim A As Long 
A = 2 
 With Application 
  .ScreenUpdating = False 
    With Tabelle1 
        Do While .Cells(A, "A") <> "" 
         Sheets(Cells(A, "A").Text).Range("B21:J21").Copy .Cells(A, "B") 
         A = A + 1 
        Loop 
    End With 
  .ScreenUpdating = True 
 End With 
End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: noch ein Punkt vergessen...
07.10.2008 21:26:00
Markus
Hallo Tino,
danke erst einmal für die schnelle Hilfe. Leider klappt das noch nicht ganz. Hintergrund ist, dass auf diese zu kopierenden Zellen Formeln liegen und jetzt in der Tabelle 1 der Bezug nicht hergestellt werden kann. Ich bekomme also das Ergebnis #####
Hast Du eine Lösung wie ich nur den Zellinhalt (also ohne Formeln und so weiter) kopieren kann?
Danke nochmals!
Viele Grüße
Markus
Anzeige
AW: noch ein Punkt vergessen...
07.10.2008 21:54:00
Tino
Hallo,
so geht’s.
Option Explicit

 
Sub Test()
Dim A As Long
A = 2
 With Application
  .ScreenUpdating = False
    With Tabelle1
        Do While .Cells(A, "A") <> ""
         Sheets(Cells(A, "A").Text).Range("B21:J21").Copy
         .Cells(A, "B").PasteSpecial Paste:=xlPasteValues
         A = A + 1
        Loop
    End With
  .CutCopyMode = False
  .ScreenUpdating = True
 End With
End Sub


Gruß Tino

Anzeige
AW: noch ein Punkt vergessen...
07.10.2008 21:59:00
Markus
Ich hatte gehofft, Du guckst heute Abend noch einmal rein. Da habe ich ja Glück gehabt.
Einfach genial, wäre ich nie draufgekommen. Danke nochmals und schönen Abend.

Forumthreads zu verwandten Themen

Pivot berechnetes Feld
Peter

Hallöchen zusammen,
entweder stelle ich mich zu dämlich an, oder ich kapiere die Pivot wirklich nicht.
Habe eine Tabelle, aus der ich mir die Daten ziehe.
In die Datenfelder der Pivot kommt die gesamte Anzahl von Datensätzen.
In die Spaltenfelder die Differenzierung eines bestim...
15.08.2008 10:34:52
Thread-ID: 1002088
4 Beiträge
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
Pivot-Table-Makro in mehreren Tabellen-Blättern
Ela

Liebe Fachleute,
ich habe eine Arbeitsmappe mit mehreren Tabellen-Blättern. Nun habe ich ein Makro zur Erstellung einer Pivot-Tabelle aufgenommen. Ich möchte, unabhängig davon, auf welchem Tabellenblatt ich mich gerade befinde, das Makro ablaufen lassen. Und zwar so, dass das Makro immer au...
26.08.2008 10:04:08
Thread-ID: 1004699
3 Beiträge
Anzeige
Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Anzeige
aus ausgewählter Datei Tabellenblätter kopieren
Katrin

Hallo, wer kann mir helfen?
Ich möchte aus einer, vorher in einem Dialogfenster ausgewählten Datei (immer unterschiedlich), den Inhalt mehrerer Tabellenblätter in eine andere Datei kopieren. Dabei sind die Bezeichnungen der Tabellenblätter in den beiden Dateien identisch. Bis zum 1. Tabelle...
17.09.2008 10:35:00
Thread-ID: 1010267
2 Beiträge
Pivot Datenauswahl Müll entfernen
Susanne

Hallo,
habe folgendes Problem.
Habe eine Pivottabelle erstellt, die ich seit einiger Zeit nutze.
In der Eingabeliste standen zwischenzeitlich Daten, die falsch bzw. nicht mehr aktuell sind.
In der Datenauswahl der Pivottabelle (wo man die Häkchen reinmacht, um die anzuzeigen...
25.09.2008 13:31:00
Thread-ID: 1012317
5 Beiträge
Aus zwei Tabellen eine Machen
SebastianSchelb

Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
Tabelle 1 (in der...
06.10.2008 14:52:00
Thread-ID: 1014455
5 Beiträge
Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 11:17:51
Thread-ID: 1014965
4 Beiträge
Liste aus zwei Tabellen
kirsche

hallo leute,
mal wieder brauche ich eure hilfe.
ich möchte eine liste erstellen, die sich aus zwei tabellen zusammen setzt.
1.tabelle = oberbegriffe
2.tabelle = unterbegriffe
nun soll in der liste der erste oberbegriff eingetragen werden und dann die dazugehörigen unterbegr...
19.10.2008 12:36:48
Thread-ID: 1017454
5 Beiträge
Pivot-Auswertung trotz Leerzellen möglich?
Andreas

Guten Tag,
ich arbeite mit einer ziemlich großen Liste an Daten, die sich sehr gut mit Pivot-Tabellen auswerten lässt. Leider sind aber in manchen Zeilen bestimmte Werte nicht vorhanden. Wenn ich nun den Auswahlbereich einer solchen Tabelle über einen Bereich mit solchen leeren Feldern zieh...
05.11.2008 13:07:00
Thread-ID: 1021878
4 Beiträge
Pivot SubTotals auslesen_in zweiDim Array_&recover
Andreas

Hallo Excel Freunde,
ich hänge gerade an einem VBA Problem in Pivot Tabellen fest. Für manche Aktionen, die z.T. auch wieder VBA gestützt verlaufen, ist es ungünstig, SubTotals aller Art in den PivotFeldern zu haben. Bevor ich großen Code Aufwand betreibe, diese SubTotals zu erkennen und zu...
25.11.2008 14:52:23
Thread-ID: 1027731
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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