Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Variable in rows().select verwenden
#1
Guten Morgen,

es gibt ein (wahrscheinlich) kleines Problem, bei dem ich aber nicht weiter komme. Ich möchte per VBA ein paar Zeilen auswählen. Welche Zeilen das sein sollen (also von-bis) ist in zwei Variablen festgehalten.
Leider wird folgender Code nicht akzeptiert: 

Code:
Sub zeilenauswaehlen()
Dim activerow As Long
Dim targetrow As long
Dim ZeileMax As Long

activerow = Selection.Row
ZeileMax = Sheets("temp").UsedRange.Rows.Count
targetrow = activerow + ZeileMax


   Rows(activerow:targetrow).Select

   
End Sub

Das Hauptproblem ist wohl rows(activerow:targetrow). Problemlos akzeptiert wird rows("20:30"). Ich habe schon alle möglichen Syntaxvarianten probiert, leider erfolglos. 

Zusammenfassung: Statt rows("20:30") hätte ich gerne rows(activerow:targetrow). 

Ist das möglich?

Herzlichen Dank im voraus,
John
Antworten Top
#2
Hallo,

Code:
Rows(activerow & ":" & targetrow).Select
Gruß
Michael
[-] Folgende(r) 1 Nutzer sagt Danke an Der Steuerfuzzi für diesen Beitrag:
  •
Antworten Top
#3
Vielen Dank!!
Antworten Top
#4
Hallo,

oder

Rows(activerow).Resize(ZeileMax).Select

Gruß Uwe
Antworten Top
#5
Wenn 2 Zellen selektiert sind:


Code:
Sub M_snb()
    Range(Selection.Areas(1), Selection.Areas(2)).EntireRow.Select
End Sub

Aber: verzichte au 'select' und 'Activate' in VBA

Wenn nur eine Zelle selektiert ist:

Code:
Sub M_snb()
    Range(Selection, Cells.SpecialCells(11)).EntireRow.Select
Endd Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste