Zahlen als Text dargestellt,Formatierung
12.03.2023 14:46:46
Holle
ich komme einfach nicht weiter.
Vom Sheet Strom werden nach Quick Check Zellen kopiert.
Allerdings sind bei Trend die eingentlichen Zahlen als Text ausgewiesen.
Ziel: Diese sollen dort wie im Sheet Strom als Zahl übernommen werden.
Weiterhin sollen die bedingten Formatierungen der Urspungszellen mit übernommen werden.
Sub Copy()
Dim Zähler As String
Dim Verbrauch As String
Dim Trend As String
Dim Datum As String
Worksheets("Strom").Select
Zähler = Range("D28")
Verbrauch = Range("AE20")
Trend = Range("AF20")
Datum = Range("AE26")
Worksheets("Quick Check").Select
Worksheets("Quick Check").Range("A1").Select
If Worksheets("Quick Check").Range("A1").Offset(1, 0) > "" Then
Worksheets("Quick Check").Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Zähler
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Verbrauch
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Trend
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Datum
End Sub