Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopie, bei Klick auf Begriff in MsgBox

Forumthread: Kopie, bei Klick auf Begriff in MsgBox

Kopie, bei Klick auf Begriff in MsgBox
18.10.2004 19:16:30
M.Strickrodt
.
Servus Forum-Aktive,
in einer MsgBox sind verschiedene Begriffe
tabellarisch angeordnet, z.B. :
"ABC", "CDE", "EFG", "HIJ", KLM, "OPQ", "RST".
Wenn man auf den Makro-Schalter klickt,
wird die MsgBox geöffnet und oben dargestellte
Begriffe werden Tabelarisch aufgelistet.
Wird auf einen der Begriffe geklickt, so wird
dieser Begriff in die letzte aktive
Tabellen-Zelle kopiert.
Wie wird soetwas auf VBA-Basis umgesetzt ?
Im Voraus vielen Dank.
Gruss Michael
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopie, bei Klick auf Begriff in MsgBox
ransi
hallo m
ich weiss nicht wo die begriffe angeordnet sind,
kann mir aber nicht vorstellen das es eine msgbox ist.
kannst du das teil mal hochladen ?
ransi
AW: Kopie, bei Klick auf Begriff in MsgBox
18.10.2004 19:54:11
M.Strickrodt
.
Servus Ransi,
anbei der VBA-Code :

Sub A_B_C()
'A-B-C-MsgBox
MsgBox Prompt:=(Chr(10)) _
& "ABC" & (Chr(10)) & (Chr(10)) _
& "CDE" & (Chr(10)) & (Chr(10)) _
& "FGH" & (Chr(10)) & (Chr(10)) _
& "IJK" & (Chr(10)) & (Chr(10)) _
& "LMN" & (Chr(10)) & (Chr(10)) _
& "OPQ" & (Chr(10)) & (Chr(10)) _
& "RST" & (Chr(10)) & (Chr(10)) _
& , Title:="A-B-C"
End Sub

Wenn auf einen Begriff des Makro-MsgBox
geklickt wird, soll dieser Begriff
in die letzte aktive Tabellen-Zelle
kopiert werden.
Wie geht das ?
Es muss keine MsgBox sein,
kann auch ein Makro sein,
das ein Fenster mit diesen
Begriffen enthält.
Gruss Michael
Anzeige
AW: Kopie, bei Klick auf Begriff in MsgBox
ransi
hallo michael
schau mal hier:
hab nicht verstanden was du mit "in die letzte aktive Tabellen-Zelle" meinst.
ich habs mal mit einer listbox und der letzten freien zelle in spalte B gemacht.
https://www.herber.de/bbs/user/12274.xls
ransi
Anzeige
AW: Kopie, bei Klick auf Begriff in MsgBox
18.10.2004 21:13:01
M.Strickrodt
.
Servus Ransi,
mit "letzte aktive Tabellenzelle"
meine ich,
ich klicke auf ein Tabellen-Feld,
dann ist diese aktiv,
anschliessend klicke ich auf den Makro-
Schalter, die MsgBox mit den Begriffen
wird geöffnet und wenn ich dann auf einen
der Begriffe klicke, dann wird dieser
Begriff in das aktive Feld / in die
aktive Zelle kopiert, das Makro schliesst
sich dann automatisch.
So stelle ich mir die Funktion eines
Info-Feldes mit Kopier-Funktion vor.
Gruss Michael
Anzeige
AW: ach so.., bei klick Kopie
18.10.2004 21:36:06
M.Strickrodt
.
Servus Ransi,
absolut super Dein Vorschlag.
Die Begiffe sollten nur im Makro
integriert sein, nicht auf einem
Tabellen-Blatt.
Das Fenster mit den Auswahl-Begriffen
sollte auf dem Tabellenblatt verschiebbar sein,
damit die Tabelle vollständig nutzbar ist.
Das währe mega super wenn das möglich währe.
Wie sieht dazu der Makro-Code aus ?
Nochmals vielen Dank.
Gruss Michael
Anzeige
AW: ach so.., bei klick Kopie
Udo
Userform mit Listbox!
Udo
AW: ach so.., bei klick Kopie
18.10.2004 21:48:35
M.Strickrodt
.
Servus Udo,
wie komme ich zum
"Userforum mit Listbox" ?
Gruss Michael
AW: ach so.., bei klick Kopie
Udo
Alt + F11 in den Editor, Menü Einfügen/Userform
Udo
Anzeige
AW: ach so...?
18.10.2004 22:26:49
M.Strickrodt
.
Servus Ransi,
ich habe versucht es zu begreifen,
bin aber nicht drauf gekommen.
Gibt es eine Möglichkeit diese
Funktion in VBA-Code in ein
Makro einzubringen ?
Gruss Michael
Neue beispielmappe..
ransi
hallo M
habe die beispielmappe noch einmal neu gemacht.
Den code der dahintersteckt, findest du wenn du:
rechte maus auf den tabellenreiter der tabelle1,
Code anzeigen.
ransi
Anzeige
AW: Neue beispielmappe..
19.10.2004 17:15:18
M.Str.
'
Servus Ransi,
vielen Dank für Deine Info.
Wo finde ich Deine neue Beispielmappe ?
Gruss Michael
AW: ups.. vergessen
19.10.2004 18:59:50
M.Str.
'
Servus Ransi,
super Dein Vorschlag.
Aber wie kann ich den
Auswahl-Text ändern
und die Liste erweitern
oder reduzieren.
Ich finde keinen Verweis
zur Liste in Tabelle2,
wie funktioniert das ?
Nochmals vielen Dank.
Gruss Michael
Anzeige
rowsource
ransi
hallo m
klick mal im vba editor mit der rechten maus auf die listbox .
dann eigenschaften.
unter RowSource findest du das gesuchte.
ransi
AW: rowsource
20.10.2004 14:58:26
M.Str.
'
Servus Ransi,
vielen Dank für Deine Info und Hilfe.
Dein Vorschlag funktioniert super,
habe mich in der Nacht mit dem
Thema ListBox beschäftigt.
Durch Praxis-Beispiele lernt man einfach
besser.
Nochmals vielen Dank für Deine Geduld
Gruss Michael
Anzeige
freut mich wenns klappt...o.T.
ransi

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige