Zwei Zellen in eine kopieren
04.02.2021 09:59:43
ExcelRocker
ich verwende folgenden Code, um den Inhalt eines Blattes (hier C8) in eine zweite Tabelle zu kopieren (hier Spalte D), wenn eine bestimmte Zelle gefüllt ist (hier C3). Die Werte werden immer in die nächste freie Zelle in Spalte D eingetragen.
Hier der Code:
Sub kopieren()
If Sheets("Tabelle1").Range("C3") 0 Then
Sheets("Tabelle1").Range("C8").Copy
With Sheets("Tabelle2").Range("D" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteValues
End With
End If
End Sub
Mit einer normalen Formel würde es ja wie folgt aussehen: =C8&"; "&E4
Leider habe ich diese Kombination im VBA Code nicht hinbekommen und hoffe ihr könnt mir helfen, wie ich den Code anpassen muss.
Vielen Dank!
Gruß Hannes