Office: Bereich mit Variablen Markieren

Hallo Forum,

wie kann ich einen Bereich mit Variablen markieren ?

Also statt Range("A5:C7").Select

Range("XY:ZZ).Select
Ih habe es schon mit cells(x,y) porbiert, aber das geht nicht.
Hat irgendjemand eine Idee ?

Ciao

 

Hallo!

Meinst du sowas?

Code:

Dim LinksOben As String, RechtsUnten As String
LinksOben = "C3"
RechtsUnten = "D5"
Range(LinksOben & ":" & RechtsUnten).Select

 

Hallo,

oder mit Eingabe in Zellen z.B.:

a = Range("a1")
b = Range("b1")
Range(a & ":" & b).Select

 

Hallo Schatzi und J.G

Ja genausowas meinte ich und zunächst hat es auch geklappt.
Nachdem ich das feritige Makro aber in ein anderes Worksheet bertragen habe kommt eine Fehlermeldung, die ich mir nicht erklären kann:
bereits in der Zeile

Code:

Range("L5").Select

kommt die Fehlermeldung Laufzeitfehler 1004 - Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.

Hier das vollständige Makro.

Code:

Private Sub CommandButton1_Click()
Range("L5:N28").Select
    Selection.Copy
    Workbooks.Add
    Range("L5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        
 Dim Zeile As Integer
 Dim i As Integer
 Dim loesch As Integer
 Dim z$
 
 loesch = 0
  For Zeile = 28 To 5 Step -1
  
   z$ = Right$(Str$(Zeile), Len(Str$(Zeile)) - 1)

    Wert1 = Range("L" + z$) 
    Wert2 = Range("M" + z$) 
    Wert3 = Range("N" + z$) 
    
If (Wert1 = 0 Or Wert1 = "") And (Wert2 = 0 Or Wert2 = "") And (Wert3 = 0 Or Wert3 = "") Then ActiveSheet.Rows(Zeile).Delete: loesch = loesch + 1

   Next Zeile
Dim b$
loesch = 28 - loesch
b$ = "N" + Right$(Str$(loesch), 1)

    Range("L5" & ":" & b$).Select
    Selection.Copy
 
    
End Sub

ES solltenaus einem Tabellenberich die leeren Zeilen entfernt werden und der Restbereich dann in de Zwischenalage kopiert werden, um ihn dann in eine WordDatei einzufügen.
Ich krieg zuviel, es lief wirklcih genauso, wie ich es wollte., Stöhn

 

Hallo!

Bei mir erscheint dieser Fehler nicht...

Kleiner Tipp:
Du kannst auf "Select" in 99% aller Fälle verzichten:

Code:

Range("L5:N28").Copy
    Workbooks.Add
    Range("L5").PasteSpecial Paste:=xlPasteValues
    Range("L5").PasteSpecial Paste:=xlPasteFormats
    Range("L5").PasteSpecial Paste:=xlPasteColumnWidths

 

Hallo Schatzi,

nachdem der Fehler bei mir immer wieder aufgetreten ist habe ich jetzt wohl herausgefunden woran es lag.
Das Makro funktionierte als Private Sub nur, wenn ich keine neue Arbeutsmappe öffne.
So funtioniert es :

Code:

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="sr1"
  
Range("L5:N28").Select
    Selection.Copy
    'Workbooks.Add ******************diese Zeile habe ich deaktiviert !
    Range("L5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        
 Dim Zeile As Integer
 Dim i As Integer
 Dim loesch As Integer
 Dim z$
  
 loesch = 0
  For Zeile = 28 To 5 Step -1
  
   z$ = Right$(Str$(Zeile), Len(Str$(Zeile)) - 1)

    Wert1 = Range("L" + z$)
    Wert2 = Range("M" + z$)
    Wert3 = Range("N" + z$)
    
If (Wert1 = 0 Or Wert1 = "") And (Wert2 = 0 Or Wert2 = "") And (Wert3 = 0 Or Wert3 = "") Then ActiveSheet.Rows(Zeile).Delete: loesch = loesch + 1

   Next Zeile
Dim b$

loesch = 28 - loesch
b$ = "N" + Right$(Str$(loesch), Len(Str$(loesch)) - 1)


    Range("L5" & ":" & b$).Select
    Selection.Copy
  
    
End Sub

Ich würde es aber gern auch in einer anderen Arbeitsmappe hinkriegen, damit die Ursprungstabeller erhalten bleibt. Kennst Du ne Lösung ?

 

Hallo!

Klappt es mit dieser Anpassung?

ActiveSheet.Range("L5").Select

 

Jawoll !!

Ich habs gerade ausprobiert und es klappt !!!!

Du hast es mal wieder geschafft und mein Problem gelöst.

Vielen, vielen Dank !

:lol: :lol: :lol: :lol: :lol: