String Problem
17.09.2003 15:55:53
LotharP
ich habe mal wieder ein String Problem, hoffe es erbarmt sich einer ob meiner Unfähigkeit?
Public
Sub sumlaro()
Dim reihe As Integer
Dim r1 As String
Dim r2 As String
Range("AB65536").Select
Selection.End(xlUp).Select
reihe = ActiveCell.Row
r1 = "d" & reihe & ""
r2 = "g" & reihe & ""
Range("& r1 & : & r2 &").Select
Selection.Copy
Range(Selection, Selection.End(xlToRight)).Select
ActiveSheet.Paste
End Sub
Ich versuche einfach nur Range("d307:g307").select auszuwählen und den Inhalt nach rechts zu kopieren.
Ich könnte das auch noch woanders gebrauchen.
Vielen Dank im Vorraus,
Gruß
Lothar