ich beschäftige mich etwas mehr mit VBA und habe da ein kleines Problem mit zwei Tabellen und deren Zellinhalten.
Ich möchte ein Zellenbereich der Tabelle 2 in Tabelle 1 übertragen und nebenbei umwandeln.
Der Inhalt der Zellen der Tabelle 2 sind Dezimaluhrzeiten. Die möchte ich in Tabelle 1 in einen
Zellbereich einfügen und als Uhrzeit [h]:mm:ss formatieren.
Ich weiß das man den Dezimalwert /24 teilt und dann als Uhrzeit formatiert.
Mein Code ist schon soweit :
Sub KopiereBereich(StartEnd As String)
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Set Quelltab = ActiveWorkbook.Worksheets("Tabelle2")
Set Zieltab = ActiveWorkbook.Worksheets("Tabelle1")
Quelltab.Range(StartEnd).Copy
Destination:=Zieltab.Range("B4")
Zieltab.Range("B4:B27").NumberFormat = "[h]:mm:ss"
Zieltab.Range("D4:D27").NumberFormat = "[h]:mm:ss"
End Sub
Private Sub Copy_row4_Click()
Dim StartEnd As String
StartEnd = "E4:H27"
Call KopiereBereich(StartEnd)
End Sub
Per Buttonclick wird der Bereich übergeben und auch in die Zellen der Tabelle 1 Kopiert.Nur bekomme ich das mit dem umrechnen nicht auf die Reihe.
Hatte schon mit .Formula und .Value etwas probiert aber bin zu keinem Ergebnis gekommen.
Gruß André