Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variantenauswahl per Makro

Variantenauswahl per Makro
22.10.2015 09:30:17
T1M0
Hallo liebes Forum,
ich habe ein Problem und benötige euren kompetenten Rat.
Da eine Beispieltabelle mehr sagt als tausend Worte, habe ich euch eine Datei angehängt.
https://www.herber.de/bbs/user/100961.xlsx
Ich möchte über die Schaltflächen eine der vier Varianten auswählen. Der Zellbereich in der ausgewählten Spalte sollte dann in die Spalte "Favorit" geschrieben/kopiert werden.
Wenn ich mich über die Bedienung der Schaltflächen für eine andere Variante entscheide, sollte sich auch der entsprechende Inhalt in der Spalte "Favorit" ändern.
Wichtig ist, dass im Makro ein Zellbereich variabel angegeben werden kann. Die Tabelle ist nicht als Tabelle formatiert.
Mit welchem Makro muss ich die einzelnen Schaltflächen belegen?
Für jeden Tipp bin ich sehr dankbar!
Beste Grüße
T1M0

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variantenauswahl per Makro
22.10.2015 09:46:07
Beverly
Hi,
schreibe dieses Makro in ein allgemeines Modul und verknüpfe die OptionsButton jeweils mit dem Makro.
Sub Kopieren()
Dim lngLetzte As Long
Dim intSpalte As Integer
With ActiveSheet.Shapes(Application.Caller)
intSpalte = Range(.TopLeftCell.Address).Column
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, intSpalte)), _
Cells(Rows.Count, intSpalte).End(xlUp).Row, Rows.Count)
Range(Cells(3, intSpalte), Cells(lngLetzte, intSpalte)).Copy
Range("A3").PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub

Anzeige
AW: Variantenauswahl per Makro
22.10.2015 11:18:29
T1M0
Hallo!
Vielen Dank für die schnelle Hilfe!
Ich habe jedoch vergessen, ein wichtiges Kriterium mitzuteilen:
Wenn sich Einträge in der bevorzugten Variante ändern, soll sich das unmittelbar in der Favoritenspalte ändern. Das heißt ich benötige eine Art direkte Verknüpfung. Derzeit muss ich immer händisch den Schaltbutton bedienen damit die Änderung übernommen wird (die Favoritenspalte wird später für den Nutzer ausgeblendet und wird nur für weitere Berechnungen übertragen)
Das wird wohl die ganze Logik hinter dem Makro ändern. Sorry, hatte dieses Problem bei meiner ersten Anfrage nicht auf dem Schirm.
Kannst du/ihr mir weiterhelfen?
Danke und beste Grüße!
T1M0

Anzeige
AW: Variantenauswahl per Makro
22.10.2015 12:04:01
Beverly
Hi,
kopiere folgenden Code ins Codemodul des Tabellenblattes:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim optButton As OptionButton
Dim intSpalte As Integer
If Target.Row > 2 And Target.Column


AW: Variantenauswahl per Makro
26.10.2015 10:38:01
T1M0
Klasse, vielen Dank!
Leider wird nun bei jedem Variantenwechsel die MsgBox "Bitte nur 1 Zelle ändern" angezeigt, da ja mehrere Einträge auf einmal kopiert werden. Besteht die Möglichkeit, dass die MsgBox nur dann erscheint, wenn man innerhalb der Spalte mehr als 1 Zelle kopiert?
Beste Grüße!

Anzeige
AW: Variantenauswahl per Makro
26.10.2015 12:51:32
Beverly
Hi,
ergänze diese Zeile:
    If Target.Row > 2 And Target.Column And Target.Column > 1 Then


AW: Variantenauswahl per Makro
26.10.2015 13:17:17
T1M0
Stark, jetzt ist es genauso wie ich es wollte!
Vielen herzlichen Dank!
Das Forum ist einfach nur der Hammer!
Beste Grüße!

Links zu Excel-Dialogen

OptionButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige