Ich muß vom Internet immer aktuelle Tabellen in Excel als Text reinkopieren.
Nur werden die Werte zB.in Spalte H kopiert, nun muss ich sie in Spalte C rüberziehen.
Könnte man das nicht per VBA lösen.
Könnte mir dabei jemand helfen ?
Gruß Heinz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, ActiveSheet.Range("A1:A500")) Is Nothing Then Exit Sub
If Int(Val(Target.Value)) = Target.Value _
And Target.Value 0 Then
ThisWorkbook.Sheets("Journal").Select
ActiveSheet.Range("D" & Target.Value).Select
End If
End Sub
Greetz Renee
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column 8 Then Exit Sub
Target.Offset(0, -5) = Target
Target = ""
Cancel = True
End Sub
________________________________________