|
Hallo,
ich habe ein Problem mit dem u.a. VBA.
Ich kopiere eine Grundtabelle in eine vorläufige Datei namens GT2.
Diese Daten werden aus GT2 danach wieder gelöscht.
Ich benötige von allen Felder nur den Wert, deshalb die erste Selection.copy.
Von der Spalte F allerdings benötige ich auch den Wert und das Format.
Hier habe ich eine Hyperlink, der mitkopiert werden soll.
Allerdings bricht das VBA beim Selction.Paste ab.
Das habe ich in REM gesetzt, da ich die Tabelle trotzdem durchlaufen lassen muss,
wenn auch der Hyperlink nicht mitkopiert wird.
Wenn mir hier jemand helfen könnte.
Vielen Dank im Voraus
Thomas
Worksheets("Grundtabelle").Select
letzteZeileGT = Worksheets("Grundtabelle").Range("A1").Value
Worksheets("Grundtabelle").Rows("3:" & letzteZeileGT).Select
Selection.Copy
Worksheets("Grundtabelle").Range("A1").Select
Sheets("GT2").Select
Sheets("GT2").Rows("3:3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("GT2").Range("A3:K" & letzteZeileGT).Select
Selection.Sort Key1:=Sheets("GT2").Range("A3"), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Rem Worksheets("Grundtabelle").Select
Rem Worksheets("Grundtabelle").Columns("F:F").Select
Rem Selection.Copy
Rem Sheets("GT2").Select
Rem Worksheets("GT2").Columns("F:F").Select
Rem Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
Rem :=False, Transpose:=False
Worksheets("GT2").Range("A1").Select
|