AW: Wenn Dann Sonst / mit mehreren Bedingungen
01.11.2016 22:16:09
Piet
Hallo Jürgen,
am schnellsten geht es bei mir über ein Makro, geht sicher auch mit Formeln. Ich mache es so:
Zum Auswerten brauche ich entweder eine Spalte mit dem Text "U10, Ü65", das Geb.Datum oder Alter als Zahl. In meinem Makro siehst du drei If Anweisungen, aber nur eine darfst du benutzen, die andren Löschen! Du hast die freie Auswahl ob in der Spalte ein Text steht, das Geb.Datum oder eine Zahl. Ohne klare Angaben von dir kann ich es nicht wissen. Deshalb drei If Versionen.
In die Const Anweisung musst du noch von Hand deine Spalten eingeben, meine sind nur Beispiele. TNBereich ist die Spalte wo ich das Auswahl Kriterium finde, und Gebühr ist die Spalte wo 12/8 EU steht. Probier es mal aus. Am besten in einem Extra Blatt damit du nicht versehentlich Daten zerstörst!
mfg Piet
'hier muss der Teilnehmer Bereich stehen
Const TNBer = "A2:A150" 'Text mit U10, Ü65
Const Gebühr = "G2:G150" 'Gebühren Spalte
Sub Startgebühr()
Dim Tn As Object, Bst As String
'Gebührenspalte mit 12 EU füllen
Range(Gebühr) = 12
Bst = Left(Gebühr, 1)
'Schleife für erniedrigte Gebühr 8 EU
For Each Tn In Range(TNBer)
'Text mit U10, Ü65 auswerten über Mid()
If Mid(Tn, 2, 2)