Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1312to1316
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
1312to1316
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus mehreren Blättern zusammenfassen

Daten aus mehreren Blättern zusammenfassen
24.05.2013 17:19:15
Mr.
Hallo zusammen,
als VBA-Neuling braue ich eure Hilfe bei folgendem Problem:
In einem Tabellenblatt VWerte stehen in A2-A31 Namen, aus denen über Makro 30 Tabellenblätter (alle identisch) nach einem Muster erzeugt werden. Die Inhalte werden später modifiziert.
In einem neuen Blatt steht in B3 ein Suchkriterium. Jetzt soll das Makro in allen 30 Blättern C11:C39 nach dem Suchbegriff durchsuchen und die Werte aus den Spalten B und D sowie E8 in das neue Blatt eintragen. Danach in I11:I39 und die Werte aus B und J eintragen. Das ganze noch 2 mal.
Blattname E8 Inhalt B Inhalt D/J/P/V

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus mehreren Blättern zusammenfassen
24.05.2013 18:02:50
Oberschlumpf
Hallo!
a) hat Mr Data auch einen Vornamen?
b) zeig uns doch eine Bsp-Datei. Du hast die Daten doch schon. Sollen wir deine Daten aus den Fingern saugen?
c) Und mal "BITTE" zu schreiben, wird auch dir nicht schaden. Dein ganzer Text liest sich für mich wie "Ich will - ihr sollt machen" Hey Mr Data, wir sind keine Maschinen, denen du einfach so Befehle erteilen kannst.
Wenn du wenigstens b) - c) beachtest, bin ich mir fast sicher, dass dir jemand antwortet.
Ciao
Thorsten <<-- das ist mein Vorname

AW: Daten aus mehreren Blättern zusammenfassen
27.05.2013 13:13:55
fcs
Hallo Mr. Data,
ein entsprechendes Makro kann wie folgt aussehen.
Gruß
Franz 
'vor dem Start des Makros das "neue" Blatt mit dem Suchwert in B3 aktivieren!
Sub Suche_nach_B3()
Dim varSuchen As Variant
Dim wksZiel As Worksheet, ZeileZiel As Long
Dim wksSuch As Worksheet
Dim rngGefunden As Range, rngSuchen As Range
Dim arrRanges As Variant, arrWertSpalte As Variant, intI As Integer
Set wksZiel = ActiveSheet
'zu durchsuchende Zellbereiche
arrRanges = Array("C11:C39", "I11:I39", "O11:O39", "U11:U39")
'zugehörige Spalten aus denen Werte ausgelesen werden sollen
arrWertSpalte = Array(4, 10, 16, 22) 'D, J, P, V
ZeileZiel = 5 'Zeile ab der Werte eingetragen werden sollen, wenn Spalte A leer.
With wksZiel
If .Cells(.Rows.Count, 1).End(xlUp).Row >= ZeileZiel Then
ZeileZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End If
varSuchen = .Range("B3").Value
If varSuchen = "" Then
MsgBox "In Zelle B3 ist kein Suchwert eingetragen!"
Exit Sub
End If
End With
For intI = LBound(arrRanges) To UBound(arrRanges)
For Each wksSuch In ActiveWorkbook.Worksheets
Select Case wksSuch.Name
Case wksZiel.Name, "VWerte"
'diese Blätter nicht durchsuchen
Case Else
Set rngSuchen = wksSuch.Range(arrRanges(intI))
For Each rngGefunden In rngSuchen.Cells
If rngGefunden.Value = varSuchen Then
wksZiel.Cells(ZeileZiel, 1).Value = wksSuch.Range("E8")
wksZiel.Cells(ZeileZiel, 2).Value = wksSuch.Cells(rngGefunden.Row, 2)
wksZiel.Cells(ZeileZiel, 3).Value = wksSuch.Cells(rngGefunden.Row, _
arrWertSpalte(intI))
ZeileZiel = ZeileZiel + 1
End If
Next
End Select
Next wksSuch
Next intI
End Sub

Anzeige

311 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
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
mehrere Tabellenblätter in ein PDF drucken
Christian

Hallo zusammen,
nachdem ich im Forum keine Info zu meinem Thema gefunden habe:
Ich möchte mehrere Tabellenblätter einer Datei als PDF ausdrucken. Also markiere ich die Tabellenblätter und gehe wie gewohnt ins Menü "Drucken" (PDF über Acrobat 7.0 oder PDF XChange 4.0 Lite).
Leider we...
10.10.2008 09:11:00
Thread-ID: 1015503
2 Beiträge
Anzeige
3D Diagramm erstellen aus Matrix
Kay

Hallo,
Ich habe in Excel eine Matrix, die folgendermaßen aufgeteilt ist
A B C D
15 12% 10% 15% 20%
30 10% 13% 17% 19%
45 8% 12% 15% 17%
Wie bekomme ich es nun hin, dass mir auf der Größenachse alle %-Werte, auf der Rubrikenachse die Zeile...
29.10.2008 21:38:38
Thread-ID: 1020422
7 Beiträge
Optimale Spaltenbreite per makro auf anderem Blatt
Macro

Hi,
Ich möchte von einem Tabellenblatt aus per Button die "optimale Spaltenbreite" auf einem anderen Blatt einstellen.
Kann ich das machen, ohne dass mein Tabellenblatt, von dem ich aus starte, den Focus verliert, bzw, dass ich das zweite Tabellenblatt (wo die Einstellung statt finden...
10.12.2008 13:37:50
Thread-ID: 1031680
4 Beiträge
Pivot Tabelle in Array auslesen & neu erstellen
Andreas

Hallo Herber Fans,
da PivotTabellen sich nicht immer rational verhalten, ist es zuweilen notwendig, diese zu löschen und komplett neu aufzubauen, damit sie wieder fehlerlos sind und andere VBA Codes die mit ihnen arbeiten, nicht zum Absturz bringen.
Was ich nun realisierte, war ein Code...
12.02.2009 19:20:00
Thread-ID: 1050227
4 Beiträge
Diagramm als Tacho mit 3 Linien
SteffenS

Hallo Zusammen,
ich habe im Netz ein Beispiel für ein Tachodiagramm gefunden.
Dieses funktioniert auch super.
Ich benötige aber statt zwei 3 Zeiger.
Wie mache ich dies?
Hier die Datei: https://www.herber.de/bbs/user/61277.xls
Danke im Voraus.
MFG
Steffen Schmerl...
18.04.2009 14:20:13
Thread-ID: 1069491
4 Beiträge
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Anzeige

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