Hyperlink per VBA mitkopieren

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaTest() If Cells(3, 1).Value = "Ofenkörper" And Cells(3, 2).Value = "Ofengestell" Then Sheets("Anlage").Range("A4:B4").Copy Sheets("Ofengestell").Range("A200").PasteSpecial Paste:=xlPasteValues, _ SkipBlanks:=False, Transpose:=False Sheets("Anlage").Range("C4:T4").Copy Sheets("Ofengestell").Range("C200").PasteSpecial Paste:=xlPasteAll, _ SkipBlanks:=False, Transpose:=False Sheets("Ofengestell").Range("C200").PasteSpecial Paste:=xlPasteValues, _ SkipBlanks:=False, Transpose:=False Sheets("Ofengestell").Range("U200").Value = Date Range("A3:T3").ClearContents End If End Sub

Hallo Gregy,
die bedingten Formatierugnen kann man im Zielbereich ohne Bedenken löschen.
Bei Rahmen und Zellfarben würde ich diese einfach mal entfernen/ausblenden.
Fall bestimme/alle Zellen in den Zeilen Zellfarben oder Rahmen haben sollen, dann müssen diese im Zielblatt dann vom Makro entsprechend formatiert werden.
Gruß
Franz

Sub aaTest()
If Cells(3, 1).Value = "Ofenkörper" And Cells(3, 2).Value = "Ofengestell" Then
Sheets("Anlage").Range("A4:B4").Copy
Sheets("Ofengestell").Range("A200").PasteSpecial Paste:=xlPasteValues, _
SkipBlanks:=False, Transpose:=False
Sheets("Anlage").Range("C4:T4").Copy
Sheets("Ofengestell").Range("C200").PasteSpecial Paste:=xlPasteAll, _
SkipBlanks:=False, Transpose:=False
Sheets("Ofengestell").Range("C200").PasteSpecial Paste:=xlPasteValues, _
SkipBlanks:=False, Transpose:=False
Sheets("Ofengestell").Range("U200").Value = Date
With Sheets("Ofengestell").Range("C200:T200")
.Interior.ColorIndex = xlColorIndexNone 'Zellhintergrundfarbe entfernen
.Borders.LineStyle = xlLineStyleNone 'Linien ausblenden
.FormatConditions.Delete 'bedingte Formatierungen löschen
End With
Range("A3:T3").ClearContents
End If
End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread