Verschachtelte IF Anweisung
19.12.2017 14:45:27
Silke
folgendes Problem:
zwei Werte sollen überprüft werden.
Spalte 3 enthält Personal-Nr. mit Werte von
kleiner 18999
19000-19999
größer 90000
Spalte 2 enthält Kostenträger
100 für kleiner 19000
199 für 19000-19999
999 für größer 90000
Jetzt sollen alle Personal-Nr. geprüft werden und den richtigen Kostenträgern zugeordnet werden.
ABER: wenn die Zelle Personal-Nr. leer ist dann soll er unverrichteter Dinge weiter gehen zur nächsten Zelle. Es kommen nämlich leere Zellen vor.
Ich hab mich in VBA versucht, leider klappt es nicht. Nachfolgend der Code (bitte nicht erschrecken ich bin absoluter Anfänger) :-)
Option Explicit
Sub KostentraegerVerwalten()
Dim ls As Integer
Dim s As Integer
'** Ermittlung der letzten Zeile in Spalte 3
Application.ScreenUpdating = False
ls = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
'klappt
'** Durchlauf aller Zeilen
For s = ls To 2 Step -1 'Zählung rückwärts bis Spalte 1
'** Abfragen, ob in der ersten Spalte der Wert "" steht
'wenn ja dann nexte Zelle
Select Case Cells(s, 3).Value = ""
Case True
End Select
'Alles was kleiner 19000 ist soll den Kostenträger 100 erhalten.
If Cells(s, 3).Value 19000 & Cells(s, 3).Value = 90000 Then
Cells(s, 2).Value = 999
Else
End If
End If
End If
Next s
Application.ScreenUpdating = True
End Sub
Danke schon mal für die Hilfe.
LG Silke