Office: (Office 2016) [VBA] Daten auf Grund von Variable auf anderes Tabellenblatt kopieren

Hallo zusammen,

vorab großes Lob an das Forum, ich konnte schon einige Dinge sinnvoll für mich nutzen, meine VBA Skills beschränken sich sonst eher auf das Anpassen von aufgezeichneten Makros
Im konkreten Fall würde ich gerne folgendes realiseren:

In eine Eingabemaske können in einer Auswahl (B3:I7) 1 bis max. alle 5 Zeilen befüllt werden. Auf Knopfdruck soll der Inhalt der Auswahl in ein anderes Blatt kopiert werden - abhängig davon, was in D3 steht.
Steht in D3 z.B. "A", soll der gesammte Inhalt (B3:I7) in das Tabellenblatt "A" kopiert werden und zwar dort wenn möglich unter die letzte mit Daten befüllte Zelle in Spalte B (Im Beispiel B10). Analog soll das Ganze funktionieren, wenn in D3 "B" oder "C" steht.

Die logischen Schritte wären m.M.n.
1) Überprüfe, ob in D3 dieses Arbeitsblattes ein "A" steht
2) Kopiere die Auswahl B3:I7
3) Wechsel auf das Blatt "A" und finde dort den letzten Eintrag in Spalte B
4) Füge die kopierte Auswahl in die letzte gefüllte Zelle +1Zeile in Spalte B ein

Ich hätte das ganze dann nochmal analog mit "B" und "C" versucht, scheitere aber bereits an der einfachen Umsetzung . Wenn schon jemand mit Ahnung draufguckt, lässt sich das vielleicht auch direkt in einer Funktion abbilden...

Besten Dank für jegliche Unterstützung!
Sammy

 

Hallo,

für mich erschließt sich der Sinn der Aktion nicht: gleichartige Daten gehören auf ein Tabellenblatt.

 

Hi,

wieso willst du mehrere Datenblätter haben? A, B, C sind doch im Grunde identisch. Also würde es schon reichen, wenn du dein erstes Blatt nicht "Eingabe" sondern "Alle Stationen" nennst. Mach aus deiner Tabelle eine Strg-T-Tabelle und verwende bei Bedarf den Autofilter, so dass du nur Station A, B oder C siehst.

So brauchst du kein Makro. Und Auswertungen jeglicher Art wie z.B. "Wie hoch war die Auslastung aller Stationen im Oktober?" oder "Wie hoch ist aktuell das Durchschnittsalter auf Station B und C?" werden wesentlich einfacher.

Wenn du dennoch ein Makro haben willst:

Code:

Sub sinnloses_kopieren()
Dim Blatt As Worksheet
Dim nZeile As Long
Dim i As Long
For i = 3 To 7
    Select Case Cells(i, "D")
        Case "A", "B", "C"
            With Worksheets(CStr(Cells(i, "D")))
                nZeile = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
                .Range(.Cells(nZeile, "B"), .Cells(nZeile, "I")).Value = Range(Cells(i, "B"), Cells(i, "I")).Value
            End With
    End Select
Next i
End Sub

 

Das mag vielleicht auch so nicht sinnig erscheinen, da ich nicht den Kontext drum herum erläutert habe.
A, B und C sind unterschiedliche Stationen, an denen zwar das gleiche passiert, aber an unterschiedlichen Orten. Es geht dabei um tagesaktuelle Liste, aus denen immer wieder Einträge hinzugefügt und auch gelöscht werden.

Ich persönlich hätte auch mit einem Blatt und gearbeitet Filter, es sind aber unterschiedliche Blätter pro Station gewünscht...

 

Perfekt, besten Dank! Funktioniert wie gewünscht und der Name hat mir am Monat Vormittag direkt ein grinsen ins Gesicht gezaubert

 

Auch wenn es dir ein Grinsen ins Gesicht zaubert: Der Name ist völlig ernst gemeint.

Glaub mir (und auch Klaus-Dieter) das Aufteilen gleicher Daten auf mehrere Blätter ist NIE eine gute Idee.
Und wenn schon mehrere Blätter: wozu brauchst du ein Eingabe-Blatt? Du kannst die Daten doch genau so gut direkt in die einzelnen Blätter schreiben. Was erhoffst du dir davon, dass du nach der Eingabe noch das Makro auslösen musst? Was ist, wenn jemand das Makro mehrfach ausführt? Immerhin hast du so im Moment dann die Daten auch mehrfach in den Blättern stehen.

 

Hallo,

jede Antwort kann nur so gut sein, wie die Frage. Wie ich denke, hat Helmut schon alles gesagt, was es zur Datenhaltung auf mehreren Blättern zu sagen gibt. Leider ist es ein weit verbreitetes Problem, dass fast jeder Excel-Anwender versucht, seine Daten kleinteilig zu erfassen und zu verarbeiten. Das ist aus EDV-Sicht schlicht und einfach falsch.

 

Danke für den Input, so wie ich es zuerst angedacht hatte, funktioniert es auf jeden Fall.
Allerdings habt ihr recht, vermutlich ist eine durchgängige Liste sinnvoller und dann einfach entsprechende Pivots zu erstellen, die die gewünschten Dinge filtern...