Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Werte überprüfen
zurück: Chart properties weiter: bitte um kurze excel hilfe=leerzeichen in nummer einfügen. Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
jam12
Gast


Verfasst am:
19. Jul 2010, 14:40
Rufname:

Werte überprüfen - Werte überprüfen

Nach oben
       Version: Office 2007

hi,

kann mir jemand bei folgendem Wenn-Dann Makro helfen?
Zelle J6 kann folgende Werte enthalten: I, II, III, IV, V, oder einfach leer sein.
Wenn I da steht, dann soll in Spalte O "ok" geschrieben werden, in P-S dann "nicht ok"
Wenn II da steht, dann soll in Spalte O und P ok geschrieben werden und Q-S "nicht ok"
III -> O, P, Q =ok (R-S "nicht ok")
IV -> O,P,Q,R =ok (S "nicht ok"
V -> O,P,Q,R,S = ok
bei leer soll überall "nicht ok" stehen.

Kann man das irgendwie in einer Abfrage machen, ohne 5 if Abfragen zu schreiben?
Danke+Gruß
jam12
Gast


Verfasst am:
19. Jul 2010, 20:53
Rufname:


AW: Werte überprüfen - AW: Werte überprüfen

Nach oben
       Version: Office 2007

hat niemand einen Tipp?
Kuwe
Excel-Anwender mit VBA


Verfasst am:
19. Jul 2010, 21:27
Rufname: Uwe

AW: Werte überprüfen - AW: Werte überprüfen

Nach oben
       Version: Office 2007

Hallo,

so z.B.:

Code:
Sub Auswerten()
  Dim i As Integer
  Dim strW As String
  strW = Range("J6").Value
  Range("O6:S6").Value = "nicht ok"
  For i = 1 To 5
    If Application.WorksheetFunction.Roman(i) = strW Then Exit For
  Next i
  If i < 6 Then Range("O6").Resize(1, i).Value = "ok"
End Sub

_________________
Gruß Uwe
Phelan XLPH
Fortgeschritten


Verfasst am:
19. Jul 2010, 21:45
Rufname: Phelan

AW: Werte überprüfen - AW: Werte überprüfen

Nach oben
       Version: Office 2007

Hallo,

ins codefenster der Tabelle:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pos As Integer
    If Target.Address(0, 0) = "J6" Then
        Select Case Range("J6").Text
            Case "I": pos = 1
            Case "II": pos = 2
            Case "III": pos = 3
            Case "IV": pos = 4
            Case "V": pos = 5
        End Select
        Range("O6").Resize(, 5) = "nicht ok"
        If pos > 0 Then Range("O6").Resize(, pos) = "ok"
    End If
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
19. Jul 2010, 22:44
Rufname:

AW: Werte überprüfen - AW: Werte überprüfen

Nach oben
       Version: Office 2007

Hallo, noch eine Variante.

Code:
Sub c()
Dim x As Variant

Range("O6:S6") = "nicht oK"
x = Application.Match(Range("J6").Value, Array("I", "II", "III", "IV", "V"), 0)
If IsNumeric(x) Then Range("O6").Resize(, x) = "ok"

End Sub


Gruß Gerd
jam12
Gast


Verfasst am:
20. Jul 2010, 09:22
Rufname:


AW: Werte überprüfen - AW: Werte überprüfen

Nach oben
       Version: Office 2007

Vielen Dank für die zahlreichen Hilfen.
Habe die Version von Gerd genommen, da am kürzesten ;)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Werte aus Liste raussuchen 8 KARL 1217 30. Apr 2014, 18:10
Holger1968 Werte aus Liste raussuchen
Keine neuen Beiträge Excel Formeln: werte aus verschiedenen tabellen addieren 3 Actiongreg 2518 06. Jul 2005, 17:23
actiongreg werte aus verschiedenen tabellen addieren
Keine neuen Beiträge Excel Formeln: Zufallszahl nicht doppelte werte?? 2 Knicky 1831 06. Jul 2005, 14:39
Gast Zufallszahl nicht doppelte werte??
Keine neuen Beiträge Excel Formeln: Werte zählen in einer Spalte 1 Diepers 14787 30. Jun 2005, 06:14
rainberg Werte zählen in einer Spalte
Keine neuen Beiträge Excel Formeln: Werte einer Tabelle auslesen 4 bobi 1930 29. Jun 2005, 13:36
bobi Werte einer Tabelle auslesen
Keine neuen Beiträge Excel Formeln: Mehrere Werte aus einer Zelle einzeln darstellen 2 Gast 1113 24. Mai 2005, 11:25
Gast Mehrere Werte aus einer Zelle einzeln darstellen
Keine neuen Beiträge Excel Formeln: vertikale ausgabe einer anzahl werte 7 grim reaper 688 21. Apr 2005, 19:14
Detlef 42 vertikale ausgabe einer anzahl werte
Keine neuen Beiträge Excel Formeln: Alle Werte einer Spalte zusammenzählen 4 Gaaast 1109 13. Apr 2005, 22:14
Scelina Alle Werte einer Spalte zusammenzählen
Keine neuen Beiträge Excel Formeln: mehrere Werte einzelner zellen einer zelle zu weisen 1 cygnus0815 1326 24. Feb 2005, 14:09
Gästchen mehrere Werte einzelner zellen einer zelle zu weisen
Keine neuen Beiträge Excel Formeln: Werte aus Projekttabelle 1 automatisch in Tabelle 2 + 3 ? 7 DerDoktor 3771 15. Jan 2005, 14:41
DerDoktor Werte aus Projekttabelle 1 automatisch in Tabelle 2 + 3 ?
Keine neuen Beiträge Excel Formeln: Will Werte addieren in Bezug zu einer anderen Spalte 8 MrMr 2236 08. Jan 2005, 14:50
xyzdef Will Werte addieren in Bezug zu einer anderen Spalte
Keine neuen Beiträge Excel Formeln: definierten zeitraum auf Wochenende und Feiertage überprüfen 1 Karsten34 1091 02. Dez 2004, 12:11
ae definierten zeitraum auf Wochenende und Feiertage überprüfen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps