Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
944to948
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gültigkeit mit Makro

Gültigkeit mit Makro
31.01.2008 13: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

 ABC
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
Anzeige
AW: Gültigkeit mit Makro
31.01.2008 14: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 14:04:37
Andre´
Hallo L.
ich brauche aber eine Möglichkeit mit Makro !
MFG Andre

AW: Gültigkeit mit Makro
31.01.2008 14: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




Anzeige
AW: Gültigkeit mit Makro
31.01.2008 14: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 14: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.

Anzeige
AW: Gültigkeit mit Makro
31.01.2008 15: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




Anzeige
AW: Gültigkeit mit Makro :-)))
31.01.2008 15:54:00
Andre´
Hallo Rudi, Karin
Vielen Dank das hilft mir weiter.
MFG Andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige