Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Tabellen bis auf bestimmte auswählen

Forumthread: Alle Tabellen bis auf bestimmte auswählen

Alle Tabellen bis auf bestimmte auswählen
20.10.2006 19:27:18
Andreas
Hallo,
brauche Hilfe!!!
Ich möchte aus allen Tabellen (bis auf ein paar bestimmte)
Werte entnehmen. Es müssen alle gewählt werden, denn ich weis
nicht wieviele es sein können, aber bestimmte sollen weggelassen
werden z.B. Eingabe, Ausgabe, usw.
Die zu entnehmenden Werte liegen immer gleich auf "A7:F7".
Danach sollen sie in eine andere Tabelle und untereinander
gesetzt werden.
Wie schreibt man das in VBA?
Vielen Dank im voraus
Gruß
Andreas W.
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Tabellen bis auf bestimmte auswählen
20.10.2006 19:37:13
Reinhard
Hi Andreas,
die Summe reicht dir nicht? ( =SUMME(erste:letzte!A1) )
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: Alle Tabellen bis auf bestimmte auswählen
20.10.2006 19:59:30
Andreas
Hallo Reinhard,
die Summe reicht mir leider nicht.
Ich muss wie beschrieben den Bereich A7 bis F7 haben, und das von
allen Tabellen bis auf diejenigen die angegeben sind, dass sie
nicht mit eingebunden werden sollen.
Gruß
Andreas W.
Anzeige
AW: Alle Tabellen bis auf bestimmte auswählen
21.10.2006 00:57:18
IngGi
Hallo Andreas,
gib im folgenden Makro beim ersten "Case" die Blattnamen aller Tabellenblätter an, die nicht berücksichtigt werden sollen. Es wird nach dem letzten Tabellenblatt ein Tabellenblatt "Summen" eingefügt, in das die Summen der Zellen in den Bereich A1:A6 eingefügt werden.
Sub Summieren()
Dim Summen(6) As Double
Dim i As Integer
Dim sh As Worksheet
For i = 1 To 6
   For Each sh In ThisWorkbook.Worksheets
      Select Case sh.Name
         Case "Eingabe", "Ausgabe"
         Case Else
            Summen(i) = Summen(i) + sh.Cells(1, i)
      End Select
   Next 'sh
Next 'i
ThisWorkbook.Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Summen"
For i = 1 To 6
   Cells(i, 1) = Summen(i)
Next 'i
End Sub
Anzeige
AW: Alle Tabellen bis auf bestimmte auswählen
21.10.2006 11:40:08
Andreas
Hallo Ingolf,
ermal Danke für deine schnelle Antwort.
Eine Frage habe ich noch:
wo muss man was umschreiben, dass ich die Zellen A7 bis F7 erwische
oder I12 bis R12 und das in eine vorhandene Liste "Ergebnisliste"
mit einträgt.
Ich steh auf´m Schlauch!?!?!
Gruß
Andreas W.
Anzeige
AW: Alle Tabellen bis auf bestimmte auswählen
21.10.2006 12:05:35
Andreas
Hab noch was vergessen!
Es sollten auch Namen, Texte eigendlich alles mit
übertragen werden.
Kann man das nicht "Brutal" alles was drin steht (A7 bis F7)
übertragen und dann untereinnander einfügen?
Beste Grüße
Andreas W.
AW: Alle Tabellen bis auf bestimmte auswählen
21.10.2006 13:41:57
Reinhard
Hi andreas,
Option Explicit
Sub tt()
Dim Ws As Worksheet, Ausn, n As Byte, Nicht As Boolean, zei As Long
Ausn = Array("Ergebnisliste", "Haupt", "Buch") 'Anpassen
MsgBox LBound(Ausn)
zei = Worksheets("Ergebnisliste").Range("A65536").End(xlUp).Row
For Each Ws In ThisWorkbook.Worksheets
Nicht = False
For n = 0 To UBound(Ausn)
If Ausn(n) = Ws.Name Then
Nicht = True
Exit For
End If
Next n
If Nicht = False Then
zei = zei + 1
Ws.Range("A7:F7").Copy Destination:=Worksheets("Ergebnisliste").Range("A" & zei)
End If
Next Ws
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Alle Tabellen bis auf bestimmte auswählen
21.10.2006 17:02:18
Andreas
Hallo Reinhard,
es funktioniert SUPER!!!!
Danke vielmals!!!!!!!
Gruß
Andreas W.
;

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