Ausgewählte Spalten kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
herzlichen Dank für den Code und die Arbeit, die Du Dir damit gemacht hast. Ich habe nun versucht, den Code wie folgt in meine Tabelle2 einzubinden, um zu erreichen, dass wenn Tabelle2 angewählt wird, dass dann automatisch die Datensätze des definierten Suchbegriffs hinüberkopiert werden. So sieht der Code jetzt aus (Ich habe die 65556 auf 1500 geändert, da ich dachte, dass es so schneller geht). Ich bekomme allerdings bei der Zeile 'If .Range("A" & lZeile).Value = "Donau" Then' die Systemmeldung "Typen unverträglich". Wie kann ich das umgehen? Und woher weiß das System eigentlich, von welchem Sheet es die Daten ziehen soll?
Option Explicit
Sub Worksheet_Activate()
Dim iBlatt As Integer
Dim lZeile As Long
Dim lLetzte_Q As Long
Dim lLetzte_Z As Long
Dim WkSh_Z As Worksheet
Application.ScreenUpdating = False
Set WkSh_Z = Worksheets("Tabelle2") 'Ziel-Tabellenblattnamen ggf. anpassen
For iBlatt = 1 To Worksheets.Count
If Worksheets(iBlatt).Name ("Tabelle2") Then
With Worksheets(iBlatt)
lLetzte_Q = IIf(.Range("A1500") "", 1500, .Range("A1500").End(xlUp).Row)
For lZeile = 1 To lLetzte_Q
If .Range("A" & lZeile).Value = "Donau" Then
lLetzte_Z = IIf(WkSh_Z.Range("A1500") "", _
1500, WkSh_Z.Range("A1500").End(xlUp).Row) + 1
Worksheets(iBlatt).Rows(lZeile).Copy _
Destination:=WkSh_Z.Range("A" & lLetzte_Z)
End If
Next lZeile
End With
End If
Next iBlatt
Application.ScreenUpdating = True
Vielen Dank für Feedback und schöne Grüße
Tommi

Hallo Peter,
herzlichen Dank für Deine Mühen. Leider ist dies nicht ganz das, was ich versuche, umzusetzen. Das liegt aber leider daran, dass ich nicht so richtig weiß, wie ich es technisch korrekt formulieren kann. :-( Hinzu kommt, dass ich nur einen Teil des Projektes dargestellt habe. Ich versuche es daher noch einmal. Es tut mir wirklich sehr leid, dass dadurch so viel Arbeit verursacht worden ist.
Der eingangs von mir gepostete Code kopiert den Abschnitt A2:L2000 vom Sheet Tabelle1 nach Tabelle2. Dieser Code wird immer dann ausgeführt, wenn man Tabelle2 aufruft. So wollte ich es auch umsetzen. Zusätzlich sollen jedoch nur die Datensätzen aus Tabelle1 bei Aufruf von Tabelle2 nach Tabelle 2 kopiert werden, die den Begriff "Donau" enthalten. Bei Aufruf von Tabelle 3 sollen wiederum nur die Datensätze aus Tabelle1 nach Tabelle3 kopiert werden, die den Begriff "Rhein" enthalten. So soll gewährleistete werden, dass bei Aufruf von Tabelle2 bzw. Tabelle3 jeweils sämtliche aktuellen Daten von Tabelle1 enthalten sind. Bei Aufruf von Tabelle1 soll eigentlich nichts passieren.
Eine Sicherung gegen doppelten Blattabruf hatte ich bislang nicht eingeplant, da beim ursprünglichen Code eigentlich alles gut funktionierte - selbst wenn die Zeilenanzahl sich verringert. Da ich aber zugegebenermaßen wirklich ein kompletter Laie bin, kann ich leider nicht einschätzen, ob das überhaupt umsetzbar ist oder ob Dein Code das bereits mit kleinen Modifikationen kann. Ich habe durch das Forum schon viel gelernt und habe mir Deinen Code wirklich sehr lange angeschaut und daran herumgetüftelt. Aber ich kann ihn leider nicht so entschlüsseln, als dass ich ihn für oben geplantes Vorhaben abändern könnte.
Würdest Du mir vielleicht noch einmal unter die Arme greifen? Ich habe hier auf Basis Deiner Datei ein Beispiel angefertigt:

Die Datei https://www.herber.de/bbs/user/44747.xls wurde aus Datenschutzgründen gelöscht

Lieben Dank und schöne Grüße
Thomas

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausgewählte Spalten kopieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread