VBA-Abfrage like / like not

Bild

Betrifft: VBA-Abfrage like / like not
von: Thommy
Geschrieben am: 25.11.2003 22:30:12

Hallo Excel-Freaks!!


ich hab folgendes Problem, ich hab eine Tabelle die z.b. wie folgt aussieht:

SpalteA / SpalteB
AIKS / 2
AIGE / 3
AFDE / 4
SIEF / 3
SIKD / 3
..... / ....



so jetzt möchte ich übers VBA rechnen lassen, zähle mir alles zusammen von Spalte B wo in der Spalte A ein 'K' vorkommt mit z.b. folgender Abfrage

If SpalteA Like "*K*" Then Summe = Summe + SpalteB

funktioniert alles super mit meiner Abfrage

Nur mein Problem ist jetzt, welchen Befehl muß ich eingeben,
daß es mir alle Summen von SpalteB zusammenzählt, wo dieses K in
der Spalte A nicht vorkommt???

Hab schon folgende Abfrage probiert:

If SpalteA Like Not "*K*" Then Summe = Summe + SpalteB oder
If Not SpalteA Like "*K*" Then Summe = Summe + SpalteB oder
If SpalteA <> "*K*" Then Summe = Summe + SpalteB

Keines von denen funzt!! Helft mir bitte - wie heißt der
Befehl!!?????

Bedanke mich schon jetzt für Eure Hilfe

Thommy

Bild


Betrifft: AW: VBA-Abfrage like / like not
von: K.Rola
Geschrieben am: 25.11.2003 22:42:23

Hallo,

If instr(cells(x,y),"K")=0 then

Gruß K.Rola


Bild


Betrifft: AW: VBA-Abfrage like / like not
von: Reinhard
Geschrieben am: 25.11.2003 22:44:33

Hallo Thommy,
probier das Folgende.
Gruß
reinhard


Sub tt()
With Worksheets("Tabelle1")
    Summe = 0
    For n = 2 To .Range("A65536").End(xlUp).Row '2 da Überschrift in Zeile 1
        Summe = Summe - (.Cells(n, 1) Like "*K*") * .Cells(n, 2)
    Next n
    .Cells(n, 2) = Summe
    .Cells(n, 1) = "Summe aller Werte mit *K*"
End With
End Sub



Bild


Betrifft: ups, Not K war ja gefragt
von: Reinhard
Geschrieben am: 25.11.2003 23:07:43

Hallo,
dann halt so:

Sub tt()
With Worksheets("Tabelle1")
    Summe = 0
    For n = 2 To .Range("A65536").End(xlUp).Row '2 da Überschrift in Zeile 1
        Summe = Summe - (Not (.Cells(n, 1) Like "*K*")) * .Cells(n, 2)
    Next n
    .Cells(n, 2) = Summe
    .Cells(n, 1) = "Summe aller Werte ohne *K*"
End With
End Sub

Gruß
Reinhard


Bild


Betrifft: AW: VBA-Abfrage like / like not
von: Nepumuk
Geschrieben am: 25.11.2003 22:48:47

Hallo Thommy,
Like liefer doch True oder False zurück. Die Variante: If Not SpalteA Like "*K*" Then Summe = Summe + SpalteB
muss funktionieren.
Gruß
Nepumuk


Bild

Beiträge aus den Excel-Beispielen zum Thema " Modul umbenennen ? ( anderer Namen )"