Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1220to1224
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
Inhaltsverzeichnis

Daten Gültigkeit aktualisieren

Daten Gültigkeit aktualisieren
Wolfgang
Hallo liebe Helfer
ich habe in einem Formular verschiedenen Zellen über Daten-
Gültigkeit-Liste Auswahltabellen zugeordnet.
Nun soll das Formular deutsch-englisch gestaltet werden.
Über sverweis werden die Gültigkeitslisten jeweils mit
den englischen Begriffen gefüllt.
Gibt es eine Möglichkeit beim Umstellen der Sprache
den bereits ausgewählten deuteschen Text zu aktualisieren und
den englischen Text anzuzeigen ?
Vielen Dank im Voraus
Wolfgang

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten Gültigkeit aktualisieren
04.07.2011 14:01:10
MichaV
Hallo Wolfgang,
mit Gültigkeitslisten kannst Du nur Werte in eine Zelle schreiben. Eine Aktualisierung dieser Werte ist dann nicht mehr möglich.
Gruss- Micha
AW: Daten Gültigkeit aktualisieren
04.07.2011 14:05:16
Wolfgang
auch nicht über VBA ?
Wolfgang
AW: Daten Gültigkeit aktualisieren
04.07.2011 14:10:14
MichaV
Über VBA geht ne Menge. Du brauchst ein Makro welches alle Gültigkeits- Zellen abklappert und die Zellinhalte anhand Deiner Gültigkeits- Listen ändert. Das ist machbar, aber ich kann das jetzt nicht aus dem Ärmel schütteln. Lasse darum offen, vlt. melde ich mich heute abend nochmal, wenns bis dahin nicht geklärt ist.
Gruss- Micha
AW: Daten Gültigkeit aktualisieren
04.07.2011 14:11:08
MichaV
(allerdings hab ich XL2007.... hast Du tatsächlich noch office 97?)
Anzeige
Beispielmappe? owT
04.07.2011 14:20:28
Rudi
AW: Beispielmappe? owT
04.07.2011 14:23:34
Wolfgang
Danke für die Bemühungen
ich lass offen
Wolfgang
ich lass offen
04.07.2011 14:25:56
Rudi
Hallo,
lässt du nicht. Haken vergessen?
Was ist mit der BspDatei?
Gruß
Rudi
AW: ich lass offen
04.07.2011 22:36:06
MichaV
Hallo,
versuch mal:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'C4 ist die Zelle mit Sprachauswahl
If Not Intersect(Target, Range("C4")) Is Nothing Then  _
korrigiere_zellen_mit_gueltigkeitspruefung
End Sub
Sub korrigiere_zellen_mit_gueltigkeitspruefung()
Dim rngZelle As Range
Dim rngEnglisch As Range
Dim rngDeutsch As Range
Dim strSprache As String
Dim lngIndex As Long
'Deine englische Matrix
Set rngEnglisch = Range("J8:J10")
'Deine deutsche Matrix
Set rngDeutsch = Range("I8:I10")
'Sprachauswahl
strSprache = Range("C4")
'Alle Zellen mit Gültigkeits-Prüfungen im Bereich A1:D10 werden überprüft
For Each rngZelle In Range("A1:D10")
If rngZelle.Validation.Value = False Then 'Zelle mit fehlerhafter Gültigkeit
If strSprache = "Deutsch" Then
'Wert in englisch- Matrix suchen
lngIndex = WorksheetFunction.Match(rngZelle, rngEnglisch, 0)
'und durch entsprechenden Wert in deutsch-Matrix ersetzen
rngZelle = WorksheetFunction.Index(rngDeutsch, lngIndex)
Else
lngIndex = WorksheetFunction.Match(rngZelle, rngDeutsch, 0)
rngZelle = WorksheetFunction.Index(rngEnglisch, lngIndex)
End If
End If
Next
End Sub
Der Code gehört in den Codebereich von "Tabelle1".
Gruss- Micha
Anzeige
AW: ich lass offen
05.07.2011 08:06:53
Wolfgang
Super !!!! Danke Micha
ich wußte, dies ist das beste Forum.
Gruß Wolfgang

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige