Zellenformatierung
05.02.2016 13:48:06
Frank
Mit folgendem Makro:
For lng = 39 To 55
If ActiveSheet.Cells(lng, 13) = Sheets("Stammdaten").Cells(lng - 7, 1) Then
ActiveSheet.Cells(lng, 24) = Format(Sheets("Stammdaten").Cells(lng - 7, y))
End If
Next lng
...werden Daten von einem Blatt in ein anderes geschrieben, funzt auch bis auf das Format. Da in dem Bereich wo die Daten sich zunächst befinden in den einzelnen Zellen unterschiedliche Formate vorhanden sind möchte ich diese automatisch mit übertragen. Mit dem markierten Schnipsel funktioniert es nicht, das Format wird nicht angepasst. Was mache ich falsch? Wie muss der Code aussehen? Bitte um Hilfe und Danke im Voraus!
Gruß Frank H.