mit folgendem Text kopiere ich 8 Zellen aus Tabelle1 in Tabelle2 und fasse dabei die Daten in der nächste freien Zeile in Tabelle2 komplett zusammen:
Sub Kopie_Zellen()
Dim freieZ As Long
Dim x As Long
With Sheets("Tabelle2")
freieZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("TABELLE1").[C19].Copy Destination:=.Cells(freieZ, 1)
Sheets("TABELLE1").[C21].Copy Destination:=.Cells(freieZ, 2)
Sheets("TABELLE1").[B17].Copy Destination:=.Cells(freieZ, 3)
Sheets("TABELLE1").[B33].Copy Destination:=.Cells(freieZ, 4)
Sheets("TABELLE1").[C17].Copy Destination:=.Cells(freieZ, 5)
Sheets("TABELLE1").[B35].Copy Destination:=.Cells(freieZ, 6)
Sheets("TABELLE1").[B45].Copy Destination:=.Cells(freieZ, 8)
Sheets("TABELLE1").[B60].Copy Destination:=.Cells(freieZ, 9)
End With
End Sub
Die einzelnen Zellen in Tabelle1 haben allerdings unterschiedliche Formate (z.B. Datum, Währung, Text, etc.). Das muss auch so sein. Allerdings haben dann die kopierten Zellen in Tabelle2 auch unterschiedliche Schriftgrößen.
Ich möchte also, dass bei der Zeile in Tabelle2, in der die Zellen aus Tabelle1 kopiert wurden, nach dem Kopieren folgende Formatierung vorgenommen wird:
Zeile markieren, Schriftart: Arial, Schriftgröße: 10, nicht Fett oder Kursiv sondern Standard, kein Rahmen um die Zelle.
Vielen Dank für Eure Hilfe im Voraus.
Gruß,
Stefan