Sevus zusammen,
ich habe ein Problem, mit Cells-Variablen einen Bereich Range zu definieren.
Anbei folgender Code der einen Zell-Bereich vom Blatt "D"
in den Zell-Bereich von Blatt "Übersicht" kopiert.
Der unten dargestellte Code funktioniert.
Frage :
- wie läßt sich die unten dargestellte Range-Funktion mit
Variablen bestücken, oder
- wie kann ich hier die Funktion Cells installieren.
alle bisherigen Versuche z.B. Cells(35,2) zu installieren,
sind fehlgeschlagen!
Für eine Idee währe ich Euch sehr dankbar, vielen Dank im Voraus.
Mit freundlichen Grüssen
Michael PS : Excel 2000
28.07.2004
Programm-Beispiel :
Sub Kopier_Test()
' Kopier_Test Makro Kopieren eines Zell-Bereiches
Dim Alpha As String
Alpha = "D"
Worksheets("Übersicht").Activate
' Zell-Bereich wird eingelesen Zell-Bereich wird am Ziel ausgegeben
' Quelle Ziel
Sheets(Alpha).Range("B35:F35").Copy (Worksheets("Übersicht").Range("F30:J30"))
End Sub
' Quelle Ziel
' entspricht Range(" B35 : F35") entspricht Range(" B30 : F30")
' Sheets(Alpha).Range(Cells(35, 2), Cells(35, 6)).Copy (Worksheets("Übersicht").Range(Cells(30, 6), Cells(30, 10)))
Dieser Code funktioniert nicht ! Was habe ich hier falsch gemacht ?