ich habe von Hans ein Makro in meiner TB eingestzt mit dem ich die Werte der Spalten 1 bis 4 ab der Zeile 10 bis zur letzten gefüllten Zeile in Spalte 1 in Tabelle 2 in die erste leere Zeile kopiere. Nun möchte ich zusätzlich die Werte der Zellen E5,E4,B2:B4,E6,B7 kopieren. Ich habe schon versucht die Werte mit "&" in den Code einzubinden, funktioniert aber so nicht. Wer kann mir helfen? Die Werte aus den zellen E5,E4,B2:B4,E6,B7 sollen ab der Spalte 1 eingefügt werden und die der anderen folgend.
Sub MehrFachAuswahl()
Application.ScreenUpdating = False
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
With Worksheets("Tabelle2")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
'For Each rngAct In Range("E5,E4,B2:B4,E6,B7").Cells
For Each rngAct In Range(Cells(10, 1), Cells(Range("A10").End(xlDown).Row, 4)).Cells
intCol = intCol + 1
rngAct.Copy
.Cells(intRow, intCol).PasteSpecial Paste:=xlValues
Next rngAct
End With
'Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Danke für jeden Tip Jens