Zelleninhalte in andere Tabellen einfügen und Umwandeln
07.11.2019 11:27:57
Andre
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
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é
Anzeige