Werte aus Sheets zusammenführen in ein Sheet

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim WS1 As Worksheet, WS2 As Worksheet Dim iZeile As Long, letzteZeile As Long Set WS1 = Worksheets("Dashboard") WS1.Range("I63:O" & WS1.Cells(Rows.Count, 9).End(xlUp).Row + 1).ClearContents For Each WS2 In ThisWorkbook.Worksheets With WS2 If .Name "Themenspeicher" And .Name "Dashboard" Then iZeile = Application.Match("Problemspeicher ", .Columns(2), 0) + 1 Do Until .Cells(iZeile, 2) = "" letzteZeile = WS1.Cells(Rows.Count, 9).End(xlUp).Row + 1 WS1.Cells(letzteZeile, 9) = WS2.Cells(iZeile, 2) WS1.Cells(letzteZeile, 11) = WS2.Cells(iZeile, 3) WS1.Cells(letzteZeile, 14) = .Name iZeile = iZeile + 1 Loop End If End With Next WS2 End Sub

Hi Berndt
Eine Beispieldatei sollte natürlich soweit konkret sein, dass der Zusammenhang/Seiteneffekte (z.B. welche Spalte ist für die Ermittlung der letzten Zeile massgebend und wo sind die Datenblöcke genau) erkennbar ist, andererseits wäre es aber wünschenswert, wenn die Datei abgespeckt auf die Problemstellung und ohne Chrims-Chrams (Zeugs das man eigentlich schon längst hätte löschen sollen) wäre. Dass dies als Laie nicht immer einfach einschätzbar ist, ist mir klar.
Womit ich im vorliegenden Fall aber vor allem Mühe habe, ist die Struktur generell. Insbesondere wenn man wenig VBA Kenntnisse hat, hilft eine gute Struktur extrem. Ich meine damit eine Tabellenstruktur (Spalte = Titel, Zeile = Daten und Daten zusammenhalten anstatt auf Blätter verteilen). Auch da ist mir klar, dass manchmal zwecks Übersichtlichkeit/Formatierung gewisse Abstriche gemacht werden müssen, aber dein Aufbau ist für eine systematische Bearbeitung (VBA) sehr unpassend.
Wenn ein VBA-Projekt umgesetzt werden soll und die Kenntnisse fehlen, dann müsste man das Manko beheben (bevor man das Projekt in Angriff nimmt) oder eben einen externen Auftrag vergeben. Natürlich ist das Forum dazu da, Fragen zu beantworten. Aber wenn es regelmässig Fragen mit Auftrags-Charakter (ich brauch ein Makro welches dies und das erledigt) sind, ohne dass sich der Frager selber mit VBA beschäftigt (diesen Eindruck habe ich leider bekommen), dann muss man Sinn und Zweck des Forums hinterfragen.
Aber schlussendlich liegt es im Ermessen eines jeden einzelnen, auf eine Frage zu antworten oder eben nicht. Insofern darfst du auch weiterhin deine Fragen/Aufträge erteilen wie du willst ;)
cu
Chris

Beliebteste Forumthreads (12 Monate)

Werte aus Sheets zusammenführen in ein Sheet

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread