Gültigkeit mit Makro

Forumthread: Gültigkeit mit Makro

31.01.2008 14:55:53

Andre´

Hallo alle zusammen,
ich möchte mit hilfe eines Makros erreichen, dass nur die Eingaben in A1 möglich sind, wo die Werte in der Spalte C1:C3 hinterlegt sind.
Tabelle1

	A	B	C
1			Wert1
2			Wert2
3			Wert3

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Ich hoffe mir kann jemand helfen
Danke im Voraus
MFG Andre

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Gültigkeit mit Makro

31.01.2008 15:00:00

lufrio1
AW: Gültigkeit mit Makro

31.01.2008 15:04:37

Andre´
AW: Gültigkeit mit Makro

31.01.2008 15:07:47

Beverly
AW: Gültigkeit mit Makro

31.01.2008 15:28:00

Andre´
AW: Gültigkeit mit Makro

31.01.2008 15:53:50

Rudi
AW: Gültigkeit mit Makro

31.01.2008 16:02:00

Beverly
AW: Gültigkeit mit Makro :-)))

31.01.2008 16:54:00

Andre´

AW: Gültigkeit mit Makro

31.01.2008 15:00:00

lufrio1

Dazu brauchst du kein Makro.
Gehe einfach unter Daten Gültigkeit Liste und Definiere diese als C1:C3
Gruß
L.

AW: Gültigkeit mit Makro

31.01.2008 15:04:37

Andre´

Hallo L.
ich brauche aber eine Möglichkeit mit Makro !
MFG Andre

AW: Gültigkeit mit Makro

31.01.2008 15:07:47

Beverly

Hi Andre,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address "$A$1" Then Exit Sub If Application.WorksheetFunction.CountA(Range("D1:D3")) 3 Then Application.ScreenUpdating = False Application.EnableEvents = False Target = "" Target.Select Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub

AW: Gültigkeit mit Makro

31.01.2008 15:28:00

Andre´

Hallo Karin,
habe mir folgendes gebastelt


Sub Test()
If Range("A1") = Range("D1") _
Or Range("A1") = Range("D2") _
Or Range("A1") = Range("D3") Then
MsgBox ("Richtig")
Else
MsgBox ("Falsch")
End If
End Sub

Vielleicht gibt es noch eine bessere Variante für den Fall, dass der Bereich der SpalteD größer wird
MFG Andre

AW: Gültigkeit mit Makro

31.01.2008 15:53:50

Rudi

Hallo,


Sub Test()
If WorksheetFunction.CountIf(Range("D1:D3"), Range("A1")) > 0 Then
MsgBox ("Richtig")
Else
MsgBox ("Falsch")
End If
End Sub

Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.

AW: Gültigkeit mit Makro

31.01.2008 16:02:00

Beverly

Hi Andre,
da hatte ich dich offensichtlich falsch verstanden.


Sub ermitteln()
Dim raZelle As Range
Dim strBereich As String
strBereich = Range("D1:D" & IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 4).End( _
xlUp).Row, Rows.Count)).Address
Set raZelle = Application.Range(strBereich).Find(Range("A1"), lookat:=xlWhole)
If Not raZelle Is Nothing Then
MsgBox "Richtig"
Else
MsgBox "Falsch"
End If
Set raZelle = Nothing
End Sub

AW: Gültigkeit mit Makro :-)))

31.01.2008 16:54:00

Andre´

Hallo Rudi, Karin
Vielen Dank das hilft mir weiter.
MFG Andre

Forumthread: Gültigkeit mit Makro

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread