Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeile der Schaltfläche herauslesen

Zeile der Schaltfläche herauslesen
17.07.2024 11:52:03
JakobR
Hallo,

ich mache gerade erste Schritte in Sachen VBA-Code.
Ich möchte gerne folgendes realisieren:

Mit dem Klick auf eine Schaltfläche möchte ich gerne in der darüberliegenden Zeile eine weitere Zeile einfügen.
Da sich dadurch die Position/Zeile der Schaltfläche immer wieder verschiebt, denke ich daran, die Zeile automatisch herauslesen zu lassen
und diese dann im Code zu verwenden.

Gibt es hierfür einen Code?

Mein aktueller Code lautet so:

Sub weitereTätigkeit3()
'
' weitereTätigkeit3 Makro
'

'
Sheets("Vorlagen").Select
Rows("17:17").Select
Selection.Copy
Sheets("Doku Einzeltermin").Select
>>Zeile der Schaltfläche bestimmen und hier einfügen.Select --- hier benötige ich den Code
Selection.Insert Shift:=xlDown
End Sub


ACHTUNG:
In meinem Exel-Dokument/Tab habe ich mehrere dieser Schaltflächen.
Die Zeile soll nur über der gerade geklickten Schaltfläche eingefügt werden.


Ich bedanke mich bereits für eure Hilfe.

lg, Jakob

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile der Schaltfläche herauslesen
17.07.2024 12:02:39
daniel
Hi
wenn du ein Makro hast, dass von mehreren Schaltflächen gestartet wird, dann kannst du den Namen der aufufenden Schaltfläche so ermitteln:
Application.Caller

die Zeilennummer der Zellen in welche die linke obere Ecke der Schaltfläche liegt, bekommst du mit
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row

Gruß Daniel
Anzeige
AW: Zeile der Schaltfläche herauslesen
18.07.2024 15:47:34
JakobR
Hallo Daniel,
danke für die Antwort. Ich werd das mal versuchen umzusetzen und gebe dann wieder Rückmeldung.

lg, Jakob
Im Anhang habe...
17.07.2024 12:26:53
Case
Moin, :-)

… ich dir mal ein Beispiel erstellt: ;-)
https://www.herber.de/bbs/user/171053.xlsb

Jeder Schaltfläche wird das gleiche Makro zugewiesen. Wenn du die Schaltfläche platzierst, musst du aufpassen, dass sie auch in der Zeile sind. Manchmal, wenn sie "genau" in der Ecke sitzt, ist es schon die Zeile drüber. ;-)
Wenn du beim platzieren die "ALT-Taste" gedrückt hältst, wird - in der Regel - genau platziert. ;-)

Servus
Case
Anzeige
Zeile der Schaltfläche herauslesen
05.08.2024 12:45:26
Jakob Rauscher
Hallo Case,

danke dir für die rasche Antwort. Hatte dazwischen Urlaub, deswegen kam ich erst jetzt zum ausprobieren deiner Lösung.
Leider sind meine Kenntnisse in VBA so bescheiden, sodass ich dein Makro nicht einfach so auf meine Datei anwenden kann.

Kannst du mir eventuell den richtigen Code hier einfügen, denn ich anwenden muss:
(Geht das überhaupt so auf diesem Weg, so wie ich das will?)

Sheets("Vorlagen").Select
Rows("17:17").Select
Selection.Copy
Sheets("Doku Einzeltermin").Select
>>Zeile der soeben gedrückten Schaltfläche ermitteln und hier verwenden.Select --- hier benötige ich den Code
Selection.Insert Shift:=xlDown
End Sub

Liebe Grüße,
Jakob

Anzeige
AW: Zeile der Schaltfläche herauslesen
05.08.2024 12:51:53
daniel
Hi

activesheet.shapes(application.caller).Topleftcell.EntireRow.Select


Gruß Daniel
AW: Zeile der Schaltfläche herauslesen
05.08.2024 14:46:39
GerdL
Hallo Jakob!
Worksheets("Vorlagen").Rows(17).Copy

ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Insert shift:=xlDown

Gruß Gerd
Anzeige
AW: Zeile der Schaltfläche herauslesen
06.08.2024 13:41:24
Jakob Rauscher
Hallo Gerd,

das war genau das, was ich gesucht habe.

Vielen Dank und liebe Grüße,
Jakob
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige