VBA: Worksheets und Range

Computer: Software & Programmierung Office Software
#1

HI,
ich will einen Bereich,der gefüllt ist bearbeiten.

Worksheets(strSheetName).Activate
numofRows = Worksheets(strSheetName).UsedRange.SpecialCells(xlLastCell).Row
numofColl = Worksheets(strSheetName).UsedRange.SpecialCells(xlLastCell).Column
Set CopyBereich = Worksheets(strSheetName).Range("b3", Cells(numofRows, numofColl))

Das obige funktioniert, nur würde ich gerne, dass activate weglassen.
Aber wenn das Worksheet nicht aktiv ist funktioniert das SetCopyBereich nicht.
Oder habe ich etwas übersehen?
Danke für Eure Hilfe
Winter

#2

Worksheets(strSheetName).Activate
numofRows =
Worksheets(strSheetName).UsedRange.SpecialCells(xlLastCell).Row
numofColl =
Worksheets(strSheetName).UsedRange.SpecialCells(xlLastCell).Col
umn
Set CopyBereich = Worksheets(strSheetName).Range(„b3“,
Cells(numofRows, numofColl))

Das obige funktioniert, nur würde ich gerne, dass activate
weglassen.
Aber wenn das Worksheet nicht aktiv ist funktioniert das
SetCopyBereich nicht.

Hallo Winter,

zwei Codes:

Sub tt1()
Dim strSheetName As String, CopyBereich As Range
Set CopyBereich = Worksheets("Tabelle1").Range("b3", \_
 Worksheets("Tabelle1").UsedRange.SpecialCells(xlLastCell))
MsgBox CopyBereich.Address
End Sub

Sub tt2()
Dim strSheetName As String, CopyBereich As Range
With Worksheets("Tabelle1")
 Set CopyBereich = .Range("b3", .UsedRange.SpecialCells(xlLastCell))
 MsgBox CopyBereich.Address
End With
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,
DANKE!
hat mir sehr weitergeholfen.
Peinlich ist es nur, dass Du innerhalb von Minuten antwortest und ich 'ne Woche brauche.
VIELEN DANK.
Winter