Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

If auf zellwert | Herbers Excel-Forum


Betrifft: If auf zellwert von: Einzel
Geschrieben am: 30.12.2009 19:25:48

Hallo,
habe folgendes Makro

Private Sub CommandButton7_Click()
Dim Lesen1 As String

Lesen1 = Range("C18")

If Lesen1 = "A" Then 'Prüfen ob Angebot
[Q6].Value = [Q6].Value + 1
Else
    If Lesen1 = "G" Then 'Prüfen ob Gutschrift
    [Q8].Value = [Q8].Value + 1
    Else
    End If
        If Lesen1 = "L" Then 'Prüfen ob Lieferschein
        [Q10].Value = [Q10].Value + 1
        Else
        End If

End If

'Call Vorlageöffnen

End Sub
In Zelle C18 steht A oder L oder G bzw R.
Wird nach dieser Formel =WENN(C18<>"";WENN(UND(E17>=5000;E17<=5999);"L";WENN(UND(E17>=6000;E17<=6999);"G";WENN(UND(E17>=7000;E17<=7999);"A";"R")));"") ermittelt.

Je nachdem was darin steht, soll das Makro Q6, Q8 oder Q10 um 1 erhöhen.
Es funktioniert aber leider nicht. Was ist falsch??

MfG
Stephan

  

Betrifft: AW: If auf zellwert von: Jürgen
Geschrieben am: 30.12.2009 19:35:20

Hi Stephan,

hattest so gedacht ?

https://www.herber.de/bbs/user/66897.xlsx

Private Sub CommandButton7_Click()
Dim Lesen1 As String

Lesen1 = Range("C18")

If Lesen1 = "A" Then 'Prüfen ob Angebot
[Q6].Value = [Q6].Value + 1
Else
End If
If Lesen1 = "G" Then 'Prüfen ob Gutschrift
    [Q8].Value = [Q8].Value + 1
    
    Else
    End If
        If Lesen1 = "L" Then 'Prüfen ob Lieferschein
        [Q10].Value = [Q10].Value + 1
       
        
End If

'Call Vorlageöffnen

End Sub



  

Betrifft: versuche es mal so... von: Tino
Geschrieben am: 30.12.2009 19:36:23

Hallo,

Private Sub CommandButton7_Click()

Select Case Range("C18").Value
    Case "A": [Q6].Value = [Q6].Value + 1
    Case "G": [Q8].Value = [Q8].Value + 1
    Case "L": [Q10].Value = [Q10].Value + 1
End Select

'Call Vorlageöffnen

End Sub
Einen Guten Rutsch wünscht TinoSmilies


  

Betrifft: AW: If auf zellwert von: Einzel
Geschrieben am: 30.12.2009 19:48:51

Oh mein Gott Oh mein Gott,
wie gut das das Jahr bald zuende ist.
Nach dem ich den Code von Tino ausprobiert habe und es immer noch nicht ging,
habe ich gemerkt das es nicht nicht C18 sondern D17 ist die abgefragt werden soll.
Sorry war nicht meine Absicht.
Danke für die Hilfe beide Codes funktioniren.
MfG
Stephan


Beiträge aus den Excel-Beispielen zum Thema "If auf zellwert"