die Zeilen mit zeile = Application.Caller.Row
die Spalten mit spalte= Application.Caller.Column
aber wie das Arbeitsblatt ?
.Sheet und .Worksheet funktionieren nicht.
die Zeilen mit zeile = Application.Caller.Row
die Spalten mit spalte= Application.Caller.Column
aber wie das Arbeitsblatt ?
.Sheet und .Worksheet funktionieren nicht.
versuch es mal so:
Application.VBE.SelectedVBComponent.Name
Gruss
Andreas
Wie komme ich an den Namen ?
SUB Makro1()
[....] sortieren der ganzen Daten in die entspr. Blätter
END SUB
Abfrage, wo ein Doppelklick gemacht wurde - hier z.B. Blatt "A"
Private Sub auto_open()
Worksheets("A").OnDoubleClick Auswahl
End Sub
In dieser Routine soll er mir Zeile, Spalte und Blatt in das Blatt(Auswahl) ausgeben.
Private Sub Auswahl()
zeile = Application.Caller.Row
spalte = Application.Caller.Column
blatt = Application.VBE.SelectedVBcomponent.Name
Worksheets("Auswahl").Select
Worksheets("Auswahl").Cells(1, 1) = zeile
Worksheets("Auswahl").Cells(1, 2) = spalte
Worksheets("Auswahl").Cells(1, 3) = blatt
Worksheets(blatt).Select
End Sub
danke.