PDA

Vollständige Version anzeigen : Kopieren


Bobby1504
30.09.2016, 11:03
Hallo Leute,

ich habe mal eine Frage.

Ich wähle in Tabelle 1 verschiedene Felder aus (diese werden per Doppelklick rot markiert) und kopiere diese in Tabelle 2.
In Tabelle 2 sollen die Einträge in Spalte A, Zeile 2 eingefügt werden.
Das funktioniert soweit auch, wenn ich mehrere Felder in Tabelle1 ausgewählt habe. Wenn ich nur ein Feld auswähle, dann kopiert er mir den
Eintrag in Zeile 1 der Tabelle2. Wieso?


Private Sub mkr_kopieren()

Application.ScreenUpdating = False

With Worksheets("Tabelle2")
.Range("A2:A1000").ClearContents
.Range("D2:K1000").ClearContents
.Range("M2:N1000").ClearContents

End With


Worksheets("Tabelle1").Activate


Dim rngZelle As Range
Dim lngZeile As Long

lngZeile = 2



For Each rngZelle In Range("B2:AM50")
If rngZelle.Interior.Color = 255 Then
rngZelle.Copy
Worksheets("Tabelle2").Cells(lngZeile, 1).PasteSpecial Paste:=xlValues
lngZeile = lngZeile + 1
End If
Next rngZelle

Application.CutCopyMode = False

Application.ScreenUpdating = True

MsgBox "Auswahl ist erfolgreich vorgenommen", vbInformation, "Komponenten"


Range("A1").Select

End Sub

Danke und Grüße,

Bobby

Bobby1504
30.09.2016, 13:11
Hab Problem allein lösen können.