Moin,
ich habe folgende Code in VBA der auch prinzipiell gut funktioniert
If Cells(3, 1).Value = "Ofenkörper" And Cells(3, 2).Value = "Ofengestell" Then
Sheets("Anlage").Range("A4:T4").Copy
Sheets("Ofengestell").Range("A200").PasteSpecial Paste:=xlPasteValues, SkipBlanks _
:=False, Transpose:=False
Sheets("Anlage").Range("C4:T4").Copy
Sheets("Ofengestell").Range("U200").Value = Date
Sheets("Ofengestell").Range("C200").PasteSpecial Paste:=xlPasteFormats
Range("A3:T3").ClearContents
Es erfolgt beim klicken des jeweiligen Buttons eine Abfrage der Zelle A3 und B3. Passen die Eingaben kopiert der Code die Zellen A4 bis T4 in ein anderes Tabellenblatt (hier Ofengestell) wobei er im weiteren Verlauf von den Zellen C4 bis T4 die Formatierung beibehalten soll (da stehen Preise und Datum-Angaben drin).
Nun ist es allerdings so, dass ich in den Spalten R4, S4 und T4 jeweils Hyperlinks drin habe. Diese sollen ebenfalls als Hyperlink in das neue Blatt mit kopiert werden.
Hat hierzu jemand eine Lösung für mich? Bei Google bin ich leider nicht weiter gekommen. Vielen Dank und beste Grüße