Anwendungs- oder Objektbezogener Fehler

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Olof,
habe Dein Problem mal getestet und herausgefunden, daß bei Validation die Formeln in .Formula1
in amerikanischer Schreibweise gemacht werden müssen, auch wenn der Makrorekorder sie in deutsch ausgibt. In Deinem Fall wäre das:
"=OFFSET(Unterkategorie,,MATCH(Tabelle1!R[5]C[-3],Produkte,0)-1,COUNTA(INDEX(Unterkategorie,,MATCH(Tabelle1!R[5]C[-3],Produkte,0))),1)"
Wenn Du sowas häufiger machst, dann kriegst Du das ohne viel Nachdenken so raus:
1. Schmeiß den Rekorder an
2. Menüfolge: Einfügen-Namen-Definieren... oder Strg+F3
3. Name vergeben und in "Bezieht sich auf:" die gewünschte Formel
in deutsch eingeben (aber ohne die Anführungsstriche am Anfang und Ende!)
4. OK drücken
5. Recorder beenden
6. sich das gerade erzeugte Makro anschauen
7. jetzt siehst Du die gleiche Formel in der amerikanischen Schreibweise (mit Anführungsstrichen)
8. Formel in die Validation kopieren
9. den Makrorekorder mal loben (er kann, wenn er will)
10. allgemeine Freude verbreiten!
Gruß von Luschi
aus klein-Paris

Hallo Olof,
verstehe ich dass richtig, du möchtest per Makro die Funktionalität von Tabelle 1 auch in Tabelle 2 herstellen?
Dann


Option Explicit
Sub bedingte_Gueltigkeit()
Dim i As Integer
'Löschen bisheriger Namen in der Mappe, da evtl. schon auf anderem Tabellenblatt
MsgBox ("Names: " & ActiveWorkbook.Names.Count)
If ActiveWorkbook.Names.Count > 0 Then
For i = 1 To ActiveWorkbook.Names.Count
ActiveWorkbook.Names.Item(1).Delete
Next
End If
MsgBox ("Names: " & ActiveWorkbook.Names.Count)
'Tabellenname anpassen
With Sheets("Tabelle2")
'Stammdaten schreiben
.Range("B12") = "1"
.Range("G1") = "1"
.Range("H1") = "2"
.Range("I1") = "3"
.Range("G2") = "a"
.Range("G3") = "a"
.Range("G3") = "aa"
.Range("G4") = "aaa"
.Range("H2") = "b"
.Range("H3") = "bb"
.Range("H4") = "cc"
.Range("I2") = "d"
.Range("I3") = "dd"
.Range("I4") = "ddd"
.Range("H4") = "bbb"
'Namen deklarieren, evtl. hier auch abweichende Namen von Tabelle 1, dann kann die Lö _
schroutine am Anfang der Sub entfallen
.Names.Add Name:="Produkte", RefersTo:="=Tabelle2!$G$1:$I$1"
.Names.Add Name:="Unterkategorie", RefersTo:="=Tabelle2!$G$2:$I$4"
End With
'Gültigkeit eintragen
With Sheets("Tabelle2").Range("B13").Validation
.Delete
'hier die gleichen Namen wie weiter oben verwenden
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:= _
"=offset(Unterkategorie,,match($B$12,Produkte,0)-1,counta(INDEX(Unterkategorie,,match($B$12, _
Produkte,0))),1)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Gruß
Harry

Beliebteste Forumthreads (12 Monate)

Anwendungs- oder Objektbezogener Fehler

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anwendungs- oder Objektbezogener Fehler

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

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread