Liebe/-r wer-weiss-was Experte/-in,
Ich habe folgendes Problem:
Ich möchte mehrere Reihen mit Variablen anwählen.
Bsp. mit Zahlen
Sub Bsp Zahl ()
Rows(„20:100“).Select
Selection.RowHeight = 20.5
End Sub
Wie kann ich nun die Reihen anwählen wenn die 20 und die 100 durch eine Variabel ersetzt werden müssen?
Danke für Deine Hilfe!!!
Jochen11
Hallo Jochen11!
Soweit mir bekannt ist, solltest du 2 Variablen deklarieren und diesen den gewünschten Wert über eine Eingabe oder andere Varianten zuweisen. Es sollte meines Wissens der Datentyp Variant verwendet werden.
Gruss Frank
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Rows mit Variablen anwählen
Moin, moin!
Du kannst den String „20:100“ durch eine zusammengesetzte Zeichenketten (String-) -Variable ersetzen
Das folgende Beispiel habe ich nicht getestet, sollte aber funktionieren.
Dim intFirst as Integer
Dim intLast as Integer
Dim strAdresse as String
intFirst = 20
intLast = 100
strAdresse = intFirst & „:“ & intLast
Rows(strAdresse).Select
Ingo
Hey Ingo
Boah danke das ging ja super mega schnell!!!
Danke 1000 Mal
Jochen11
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Jochen,
das ist eine Möglichkeit:
Sub Zeilen_variabel()
Dim a1 As Integer, a2 As Integer
Dim rg As Range
a1 = InputBox(„Beginnzeile:“)
a2 = InputBox(„Endezeile:“)
Set rg = Range(Rows(a1), Rows(a2))
rg.Select
End Sub
Gruß,
Claus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Jochen,
ActiveSheet.Cells(iSheetZeile, iSheetSpalte).Select
ich hoffe es bringt dich weiter
Thomas
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Jochen11,
versuch es bitte mit folgender Methode:
Sub a()
Dim a, b As String
a = InputBox(„Bitte erste Reihe eingeben!“, „Erste Reihe“, 0, 400, 600)
b = InputBox(„Bitte letzte Reihe eingeben!“, „Letzte Reihe“, 0, 400, 600)
Range(„a“ & a & „:“ & „xfd“ & b).Select
Selection.RowHeight = 20.5
End Sub
Bitte die einzelnen Variablen (a und b) in jeweils in eine Reihe setzen.
Das Makro fragt dich nun, wenn es ausgeführt wird, nach der ersten und letzten Reihe, die ausgewählt werden soll. Danach werden diese markiert. Die kannst natürlich auch noch weitere Schritte, die nach der Auswahl passieren sollen, einfügen. Einfach die entsprechenden Schritte in einem neuen Makro aufzeichen und unter das alte Makro kopieren.
Hoffe du bist mit dem Ergebnis zufrieden.
Gruß
Steffen
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Jochen,
Ändere die Zeile
>> Rows(„20:100“).Select
in
>> Range(Rows(Erste_Zeile), Rows(Letzte_Zeile)).Select
Erste_Zeile und Letzte_Zeile wären dann deine Variablen.
Gruß,
Peter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Leider viel zu spät. Sorry
Public Sub Test()
Dim iRow As Integer
iRow = 1
Dim iCol As Integer
iCol = 1
Worksheets(„Tabelle1“).Cells(iRow, iCol).Value = „Test“
End Sub