Werte aus verschiedenen Tabellen kopieren
Bastian
Ich möchte mich an dieser Stelle den tollen Antwortern für ihre geduldige Hilfe meinen Dank aussprechen. Ich bewundere Euer Wissen im Umgang mit Excel und VBA.
Ich versuche auf diesem Gebiet auch hinzu zu lernen, bin aber leider schon wieder an ein für mich unlösbares Problem angelangt und bitte jemanden um Hilfe.
Mit dem unten dargestellten Code wird mit Doppelklick in eine Zelle von Spalte A (des 2. Tabellenblattes)die Werte der danebendliegenden Spalten der gleichen Zeile in das Tabellenblatt "Tab" kopiert. Soweit ist alles gut.
Es müsste aber auch so sein, dass mit dem selben Doppelklick aus den folgenden Tabellenblättern (3. Tabellenblatt, 4. Tabellenblatt und 5., 6. und 7. Tabellenblatt die selben Zellen (gleiche Adresse wie 2. Tabellenblatt) kopiert werden und im Tabellenblatt "Tab" unterhalb der reinkopierten Werte des 2. Tabellenblattes hinzugefügt werden.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Dieser Bereich wird überwacht:
Const Watch = "A3:A56"
Dim rng As Range
Dim lz As Long, ze As Long
Set rng = Intersect(Range(Watch), Target)
If Not rng Is Nothing Then
'Wenn Doppelklick im überwachten Bereich:
Cancel = True 'nicht in den Eingabemodus wechseln
ze = Target.Row
lz = 5
Worksheets("April").Range(Cells(ze, 1), Cells(ze, 107)).Copy
Sheets("Tab").Cells(lz, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End Sub
Herzliche Grüße
Basti