Zelleninhalt in ein anderes Tabellenblatt kopieren

Hallo ihr Lieben da bin ich schon wieder :-)
Brauche wieder eure Superkentnisse, da ich schon wieder kurz vorm verzweifeln bin.
Habe in diesem Forum folgende Anweisung gefunden, um Zelleninhalte einer Spalte ohne Duplikate in eine andere Spalte zu kopieren. Das funktioniert auch super wenn sich alles im Activesheet abspielt.
Wie kann ich dies nun so umbauen, dass meine Werte aus dem Activesheet auf ein anderes Tabellenblatt übertragen werden? Meine Ziel-Quelle ist das Tabellenblatt ("Konditionen") - Spalte 1 zum Beispiel.
Der Befehl "Columns(COL_Z).ClearContents" funktioniert irgendwie auch nicht. Da kommt dann immer eine Debuggen-Fehlermeldung. Könnte sie sonst zur not auch weglassen denke ich oder was meint ihr?
Wäre euch sehr dankbar für eure Hilfestellung

Sub Preisgruppen_Kopieren()
Dim ROW_Q As Long   ' Zeile Quelle  '
Dim ROW_Z As Long   ' Zeile Ziel    '
Dim COL_Q As Long   ' Spalte Quelle '
Dim COL_Z As Long   ' Spalte Ziel   '
COL_Q = 12         ' Werte aus Quell-Spalte
COL_Z = 2          ' Werte nach Ziel-Spalte
'Columns(COL_Z).ClearContents 'Zielspalte zuvor löschen !
For ROW_Q = 5 To Cells(Rows.Count, COL_Q).End(xlUp).Row
'Per ZÄHLENWENN() prüfen, ob Wert bereits in ZIEL-Spalte vorhanden ist :
If Application.CountIf(Columns(COL_Z), Cells(ROW_Q, COL_Q)) = 0 Then
'Wenn der Wert noch NICHT in der ZIEL-Spalte vorhanden ist :
ROW_Z = Cells(Rows.Count, COL_Z).End(xlUp).Row + 1
Cells(ROW_Z, COL_Z) = Cells(ROW_Q, COL_Q)
End If
Next
End Sub

Liebe Grüße
Sebi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Preisgruppen_Kopieren() Dim ROW_Q As Long ' Zeile Quelle ' Dim ROW_Z As Long ' Zeile Ziel ' Dim COL_Q As Long ' Spalte Quelle ' Dim COL_Z As Long ' Spalte Ziel ' Dim wksZ As Worksheet COL_Q = 12 ' Werte aus Quell-Spalte COL_Z = 2 ' Werte nach Ziel-Spalte Set wksZ = Sheets("Konditionen") wksZ.Columns(COL_Z).ClearContents 'Zielspalte zuvor löschen ! For ROW_Q = 5 To Cells(Rows.Count, COL_Q).End(xlUp).Row 'Per ZÄHLENWENN() prüfen, ob Wert bereits in ZIEL-Spalte vorhanden ist : If Application.CountIf(wksZ.Columns(COL_Z), Cells(ROW_Q, COL_Q)) = 0 Then 'Wenn der Wert noch NICHT in der ZIEL-Spalte vorhanden ist : ROW_Z = wksZ.Cells(Rows.Count, COL_Z).End(xlUp).Row + 1 wksZ.Cells(ROW_Z, COL_Z) = Cells(ROW_Q, COL_Q) End If Next End Sub

Heey Rudi....
Jaaa :)))
daran hat es wohl gelegen ;) Da muss man erst einmal drauf kommen, ganz lieben Dank...
Einfach Klasse !
Eine Frage hätte ich noch, da mir dies gerade beim testen aufgefallen ist.
Kann ich irgendwie in diesem Befehl die erste Zeile meiner Zieltabelle ausklammern.
In der ersten Zeile meiner Zieltabelle stehen bereits fixe Werte drin. und wenn diese identisch sind mit den Werten die hineinkopiert werden sollen, werden diese Werte nicht mehr übernommen, da sie oben stehen.
Als Beispiel:
- in der ersten Zeile meiner Zieltabelle Steht der Wert "A" als Überschrift
- es sollen in die darunterliegenden Zeilen die Werte aus der ersten Tabelle hineinkopiert werden.
Wenn nun in der ersten Tabelle auch der Wert "A" enthalten ist, wird dieser nicht mehr übernommen.

Sub Preisgruppen_Kopieren() Dim ROW_Q As Long ' Zeile Quelle ' Dim ROW_Z As Long ' Zeile Ziel ' Dim COL_Q As Long ' Spalte Quelle ' Dim COL_Z As Long ' Spalte Ziel ' Dim wksZ As Worksheet Dim lROWS As Long COL_Q = 12 ' Werte aus Quell-Spalte COL_Z = 2 ' Werte nach Ziel-Spalte Set wksZ = Sheets("Konditionen") lROWS = Rows.Count - 1 wksZ.Cells(2, COL_Z).Resize(lROWS) = "" 'Zielspalte zuvor löschen ! For ROW_Q = 5 To Cells(Rows.Count, COL_Q).End(xlUp).Row 'Per ZÄHLENWENN() prüfen, ob Wert bereits in ZIEL-Spalte vorhanden ist : If Application.CountIf(wksZ.Cells(2, COL_Z).Resize(lROWS), Cells(ROW_Q, COL_Q)) = 0 _ Then 'Wenn der Wert noch NICHT in der ZIEL-Spalte vorhanden ist : ROW_Z = wksZ.Cells(Rows.Count, COL_Z).End(xlUp).Row + 1 wksZ.Cells(ROW_Z, COL_Z) = Cells(ROW_Q, COL_Q) End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Zelleninhalt in ein anderes Tabellenblatt kopieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

346 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelleninhalt in ein anderes Tabellenblatt kopieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

346 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread