Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Steuerelement verknüpfen
#1
Guten Morgen zusammen,

ich habe folgendes Problem mit meinem Excelsheet.

Die Zellen H3, H5, H7 usw habe ich in ein Steuerelement umgebaut, sprich in mein Tabellenblatt folgendes eingebaut ...

'erstelle Steuerflächen aus Zellen Spalte H
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("h3")) Is Nothing Then
Call test1
End If
If Not Intersect(Target, Range("h5")) Is Nothing Then
Call test2
End If
If Not Intersect(Target, Range("h7")) Is Nothing Then
Call test3
End If
end sub

das klappt soweit auch.

Nun habe ich ein weiteres Steuerelement in diese Tabelle eingefügt und mit einem anderen Makro verknüpft.
Jetzt ist es aber so, dass zwar das gewünschte Makro abläuft, aber eben auch die 3 oben genannten Makros. test1 test2 test3 , ;(
Wie kann ich das am besten trennen ?

Danke und Grüße
Wexel
Antworten Top
#2
Vor lauter Bäumen den Wald nicht gefunden, habs so gelöst...


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'erstelle Steuerflächen aus Zelle J13
If Not Intersect(Target, Range("j19")) Is Nothing Then
Call testzwei
End If
'erstelle Steuerfläche aus den Zellen Spalte H
If Not Intersect(Target, Range("h3")) Is Nothing Then
Call test
End If
If Not Intersect(Target, Range("h5")) Is Nothing Then
Call test
End If
If Not Intersect(Target, Range("h7")) Is Nothing Then
Call test
End If
End Sup


danke
Antworten Top
#3
etwas zu voreilig, klappt doch noch nicht..
Antworten Top
#4
So, habe im Tabellenblatt das ansprechen der Steuerelemente gelöscht und die Command Button einzeln in mein Tabellenblatt eingefügt und ausgerichtet.

Thema beendet, Danke
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste