09.05.2017, 19:58
ah, Ok Ralf. Kapische. 
Seiten: 1 2
10.05.2017, 21:33
Hallo zusammen,
der TE hat mir die Datei per Mail geschickt.
Ich habe nur das Nötigste drin gelassen und den Wunsch des TE in der Datei realisiert.
Es sind 4 Zellen betroffen mit Dropdowns aus der Datengültigkeit.
Der Code der den Optionsfeldern zugewiesen wird ist folgender:
Die Dropdowns haben Bezüge zu zwei benannten Bereichen.
neben den Zellen in Spalte F (sit ausgeblendet) befindet sich eine VERGLEICH() Funktion, die die Zeilennummer aus dem benannten Bereich wiedergibt.
Diese Nutze ich im Code in Verbindung mit dem Index des aufrufenden Optionsfeldes aus der entsprechenden Spalte den zugehörigen Begriff der ausgewählten Sprache in die Zelle mit dem Dropdown zu schreiben. Danach wird die Sprache umgestellt.
Und hier die Datei, in der man das Bla Bla nachvollziehen können sollte.....
[attachment=11271]
der TE hat mir die Datei per Mail geschickt.
Ich habe nur das Nötigste drin gelassen und den Wunsch des TE in der Datei realisiert.
Es sind 4 Zellen betroffen mit Dropdowns aus der Datengültigkeit.
Der Code der den Optionsfeldern zugewiesen wird ist folgender:
Code:
'allen Optionsfeldern wird dieser Code zugewiesen
Sub sprache_ändern()
Dim iIndex As Long
iIndex = ActiveSheet.Shapes(Application.Caller).DrawingObject.Index
With Sheets("Sprachtabelle")
On Error Resume Next
Range("D44").Value = Sheets("Sprachtabelle").Range("Begehung").Cells(Range("F44"), 1).Offset(0, iIndex).Value
Range("D47").Value = Sheets("Sprachtabelle").Range("Begehung").Cells(Range("F47"), 1).Offset(0, iIndex).Value
Range("D50").Value = Sheets("Sprachtabelle").Range("Stufen").Cells(Range("F50"), 1).Offset(0, iIndex).Value
Range("D53").Value = Sheets("Sprachtabelle").Range("Stufen").Cells(Range("F53"), 1).Offset(0, iIndex).Value
.Range("Sprachwahl") = iIndex
End With
End SubDie Dropdowns haben Bezüge zu zwei benannten Bereichen.
neben den Zellen in Spalte F (sit ausgeblendet) befindet sich eine VERGLEICH() Funktion, die die Zeilennummer aus dem benannten Bereich wiedergibt.
Diese Nutze ich im Code in Verbindung mit dem Index des aufrufenden Optionsfeldes aus der entsprechenden Spalte den zugehörigen Begriff der ausgewählten Sprache in die Zelle mit dem Dropdown zu schreiben. Danach wird die Sprache umgestellt.
Und hier die Datei, in der man das Bla Bla nachvollziehen können sollte.....
[attachment=11271]
11.05.2017, 17:02
Hallöchen,
die Änderung eines Formularsteuerelementes könnte man z.B. indirekt über das Calculate-Ereignis auswerten, wenn die Änderung der verknüpften Zelle eine Berechnung auslöst.
Ist allerdings bei Dateien mit vielen Berechnungen nicht unbedingt zu empfehlen...
die Änderung eines Formularsteuerelementes könnte man z.B. indirekt über das Calculate-Ereignis auswerten, wenn die Änderung der verknüpften Zelle eine Berechnung auslöst.
Ist allerdings bei Dateien mit vielen Berechnungen nicht unbedingt zu empfehlen...
11.05.2017, 20:36
Auch Hallo,
das ist mir bekannt, aber den Steuerelementen einen Code zuzuweisen ist hier die einfachste und beste Wahl.
das ist mir bekannt, aber den Steuerelementen einen Code zuzuweisen ist hier die einfachste und beste Wahl.
Seiten: 1 2