Anzeige
Archiv - Navigation
408to412
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
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit WENN-Formel

Problem mit WENN-Formel
UlfMerscher
Hallo,
hab da ein kleines Problem:
In A2 wird Text eingegeben.
Beispiel: „Urlaub“
Nun möchte ich gerne das in B2 ein „U“ erscheint.
Klar, B2=WENN(A2=“Urlaub“;“U“;““).
Ich möchte aber Spalte B Formelfrei halten, krieg ich
das „U“ auch anders dort hinein?
Danke für Eure Hilfe und allen ein frohes Osterfest.
Grüße
Ulf

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

Betreff
Benutzer
Anzeige
AW: Problem mit WENN-Formel
FaMue
Die Spalte A1 bis A3000 wir auf Eingabe geprüft.
Nach bedarf ändern

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z1 'dient zur Auswertung der ZellenNummer
Dim z3 'Zelle in die die der Wert soll
If Not Intersect(Target, Range("A1:A3000")) Is Nothing Then
'ZellenNummer der Eingabe ermitteln
z1 = Target.Address
z1 = Mid(z1, 4, 5)
z3 = "B" & z1
If (Range(Target.Address).Value) = "Urlaub" Then
Range(z3).Value = "U"
Else
end if
End Sub

OT Problem mit WENN-Formel
PeterW
Hallo FaMue,
losgelöst von der Fragestellung: warum die Verrenkungen mit Variablen? Einfacher ginge das doch so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target = "Urlaub" Then
Cells(Target.Row, 2) = "U"
End If
End If
End Sub

Gruß
Peter
Anzeige
AW: OT Problem mit WENN-Formel
10.04.2004 22:41:04
FaMue
Hallo Peter,
fange in Excel gerade erst mit vba an.
Habe bisher nur für Access geschrieben.
Danke für den Tip ist natürlich eleganter.
Grüß
FaMue
AW: OT Problem mit WENN-Formel
UlfMerscher
Hallo FaMue & Peter,
Danke für Eure schnelle Hilfe. Funktioniert so, wie
ich es mir vorgestellt habe.
Bezüglich des Codes noch eine weitere Frage.
Wie werden zusätzlich "Krank" = "K", "Dienst" = "D" in
den Code eingefügt?
Habe Peter´s Code verwendet.
Vielen Dank
Ulf
AW: OT Problem mit WENN-Formel
PeterW
Hallo Ulf,
mit diesem Strickmuster kannst du beliebig viele Begriffe darstellen lassen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Select Case Target
Case "Urlaub"
Cells(Target.Row, 2) = "U"
Case "Krank"
Cells(Target.Row, 2) = "K"
Case "Fortbildung"
Cells(Target.Row, 2) = "FB"
End Select
End If
End Sub

Gruß
Peter
Anzeige
merci und frohe Ostern
11.04.2004 12:48:01
UlfMerscher
Gruß
Ulf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige