@ P@ulchen
15.09.2004 16:22:53
Torsten
Du hattest mir vor ca. 2 Wochen ein AddIn gebastelt, mit dem ich einen Bereich auswählen und unter bestimmten Bedingungen in darunterliegende Zeilen kopieren kann. Vieleicht erinnerst Du Dich. Darin heißt es u.a.:
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
For i = 6 To 524
If Cells(i, 6) <> "" Then Range(RefEdit1.Value).Copy Cells(i, 8)
Next
Unload Me
Application.ScreenUpdating = True
End Sub
Jetzt würde ich den Ausdruck ".Copy Cells(i, 8)" gerne so ändern, daß der Kopiervorgang nicht fix in Spalte 8 beginnt, sondern in der Spalte, die ich eingangs im "RefEdit1" definiert habe. Zum Beispiel steht im RefEdit1 "Tabelle1!$I$5:$K$5", dann soll der Kopiervorgang auch in Spalte I beginnen. Steht dort aber z.B. Tabelle1!$K$5:$AB$5, dann soll Excel auch in Spalte K ansetzen. Kannst Du mir hier nochmals behilflich sein?
Vielen Dank im voraus.
Gruß
Torsten
(Das Anpassen des Codes vor dem Vorgang ist auf Dauer doch etwas lästig :-( )