nur bestimmte werte kopieren
30.10.2018 20:38:55
Thomas
ich habe mir gerade ein Macro zusammengebaut ( mit Hilfe des Netz ).
Mit diesem kopiere ich Daten aus mehren Spalten in eine neue Spalte.
leider kopiere ich so alle Daten. Ich möchte aber am ende nur die Daten haben die mit " AT " beginnen.
Nun versuche ich schon eine weile zwei Wege:
1. nach dem kopieren alle Daten die nicht mit "AT" beginnen löschen
2. gleich nur die Daten kopieren die mit "AT" beginnen
leider klappt keiner meiner Pläne.
Kann mir jemand dabei helfen?
Sub test()
Dim nZeile As Integer
Dim vSpalte As Integer
Dim vZeile As Integer
Dim nSpalte As Integer
Dim vSheet As String
Dim nSheet As String
vSheet = "Tabelle1" ' quellTabellenBlatt
nSheet = "Tabelle2" 'ZielTabellenBlatt
nZeile = 11 'nach Zeile
nSpalte = 2 'nach Spalte
'Spalte C
vSpalte = 3
For vZeile = 11 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row
Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
nZeile = nZeile + 1
Next
'Spalte E
vSpalte = 5
For vZeile = 11 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row
Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
nZeile = nZeile + 1
Next
'Spalte G
vSpalte = 7
For vZeile = 11 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row
Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
nZeile = nZeile + 1
Next
' Doppelte entfernen
Sheets(nSheet).Range("$b$11:$b$160").RemoveDuplicates Columns:=1, Header:=xlYes
Sheets(nSheet).Range("$b$11:$b$160"). _
SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub
besten dank schon mal im voraus
Anzeige