ich versuch einen variablen Bereich zu markieren.
Ausprobiert hab ich schon sämtliche Codes, aber so recht scheint mir das nicht zu funktionieren.
Private Sub Drucken_Click()
Dim WkSh_Z As Worksheet
Dim nSpalte_Z As Long
Dim nZeile_Z As Long
'Sheet anwählen
Sheets("3.Ref - 3.2.Maße - 3.3.Matrix").Select
'Worksheet für letzte Spalte definieren
Set WkSh_Z = ThisWorkbook.Worksheets("3.Ref - 3.2.Maße - 3.3.Matrix")
'Maximale Zeilenanzahl ermitteln
'Letzte Spalte suchen
nSpalte_Z = WkSh_Z.Cells(4, Columns.Count).End(xlToLeft).Column
'Letzte Zeile suchen
nZeile_Z = Range("A1000").End(xlUp).Row 'Bringt den Wert 10
nZeile_Z = Range("B1000").End(xlUp).Row 'Bringt den Wert 38
nZeile_Z = Range("C1000").End(xlUp).Row 'Bringt den Wert 1
nZeile_Z = Range("D1000").End(xlUp).Row 'Bringt den Wert 1
nZeile_Z = Range("M1000").End(xlUp).Row 'Bringt den Wert 6
Test = Range(Cells(1, 1), Cells(nZeile_Z, nSpalte_S)).Select
MsgBox nZeile_Z
End Sub
Mein letzter Code. Mich verwirrt allerdings, dass keines der gelieferten Ergebnisse zur Tabelle passen, denn der letzte Eintrag befindet sich in der Zeile 7.Was hab ich falsch gemacht?
Danke schon mal im Voraus für eure Hilfe.
Gruß
A.