Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 16:36:49
Excel Arbeitszeit berechnung
07.05.2024 16:27:17
Definition und Nutzung von globalen Variablen
07.05.2024 14:51:38
Endlos-Journal
07.05.2024 13:27:17
Datum nach Auswahl prüfen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
812to816
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
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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.
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.
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige