|
Hallo Zusammen,
Ich versuche mir gerade im Selbststudium VBA beizubringen um die Funktionsweise besser zu verstehen bin ich gerade dabei ein Makro zu bauen das auf Knopfdruck einen Wert in eine Zelle schreibt und beim nächsten dann wieder einen neuen Wert in die nächste freie Zelle darunter.
Darüber hinaus möchte ich einen button einfügen der die Spalten wechselt.
Es geht um Sub col_up() - Meine Idee war es das sich durch Aufrufden dieser Prozedur die Variable col um jeweils 1 erhöht und damit Sub row_print() den Wert in die nächste Spalte schreibt. Aber jetzt ist natürlich das Problem das ich mit row_pring() den Wert immer wieder auf 1 setzte.
Leider fehlt mir das Verständnis dafür wie Variablen genau funktionieren bzw. ich diese zwischen verschiedenen Subs übergebe.
Kann mir da jemand helfen?
Option Explicit
Public row As Integer
Public col As Integer
Sub row_print()
row = 1
col = 1
Do While Cells(row, col).Value <> ""
row = row + 1
Loop
Cells(row, col) = ("Print" & row)
End Sub
Sub row_delete()
Do While Cells(row, col).Value = ""
row = row - 1
Loop
Cells(row, col) = ""
End Sub
Sub col_up()
col = col + 1
End Sub
|