variabler Einstieg in Schleife
16.02.2022 14:34:58
Thomas
ich habe mir ein Makro zusammengeschustert das eine Matrix in eine Zeile ausgeschrieben ( ausgerollt ) wird. Soweit funktioniert dies schon fast wie es soll.
Derzeit beginnt dieses Makro aber immer im Markierten Bereich oben links. Im Beispiel wäre dies mit der Zelle a1. ( Wenn man den Bereich A1: G9 markiert )
Nun möchte ich gern noch eine Inputbox haben
Application.InputBox("Mit welcher Zeile wollen sie beginnen?", Type:=8).
Wenn man dann Beispielsweise die Zeile 2 eingibt soll das Makro mit der Zelle a2 beginnen. Wenn dann das Macro in der Zeile 9 ( in diesem Beispiel ) angekommen ist, sollen die nächsten Durchläufe aber wieder von oben links beginnen.
Kann mir da jemand helfen? Bis hier habe ich es so gut wie allein geschafft, aber das bekomme ich einfach nicht gebacken.
Anbei das Makro
Private Sub CommandButton1_Click()
Dim s As Long
Dim z As Long
's = InputBox("Bitte gib die 1. Spaltennummer zur Ausgabe ein ")
'z = InputBox("Bitte gib die 1. zeilennummer zur Ausgabe ein ( vieleicht gleich die eins )")
'z = 20 'Startzeile festlegen
's = 1
Dim x As Range
Set x = Application.InputBox("Markiere die erste Zelle der Ausgabe", Type:=8)
x.Select
s = ActiveCell.Column
z = ActiveCell.Row
Dim c As Range
Set c = Application.InputBox("Bitte wählen die Matrix aus", Type:=8)
c.Select
'MsgBox c.Address
'Do While True
Dim f As Long
Do While f
und die Beispieldatei.https://www.herber.de/bbs/user/151170.xlsm
Kann mir dabei jemand von euch helfen?
mfg thomas
Absenden Editieren