Adressenliste
20.01.2007 16:04:49
J.
Das Makro unten gibt mir immer die gleiche Adresse aus.
Ich möchte aber mehrere Adressen damit abrufen können.
Dazu möchte ich mir in der Symbolleite eine neue Schaltfläche mit Unterpunkte anlegen.
Die Schaltflächen sind nicht das Problem.
Das Problem das ich habe ist das Makro.
Option Explicit
Sub variabel()
Dim x As Integer
Dim y As Integer
x = ActiveCell.Row
y = ActiveCell.Column
Cells(x + 0, y) = "Meier, Michael"
Cells(x + 1, y) = "Unter der Haube 7"
Cells(x + 2, y) = "99999 Musterhausen"
Cells(x + 3, y) = "0123 4567 89"
End Sub
Danke im voraus.
Jochen