habe folgendes Problem:
in Spalte A befinden sich vierstellige Zahlen, nun möchte ich dass per Makro die Spalte A geprüft wird und je nach Nummer in der Spalte B der Text dazugeschrieben wird. Ich habe es mit folgendem Makro versucht:
Sub test()
Columns("A:A").Select
ActiveCell.Offset(1, 0).Select
If "0001" Then
ActiveCell.Offset(0, 1).Select
Selection = "Grundvergütung"
Else
End If
ActiveCell.Offset(1, -1).Select
If "0002" Then
ActiveCell.Offset(0, 1).Select
Selection = "Zulagen"
Else
End If
ActiveCell.Offset(1, -1).Select
If "0003" Then
ActiveCell.Offset(0, 1).Select
Selection = "Grundvergütung"
Else
End If
Hier gibt es nun 2 Probleme, erstens gibt es ca. 1000 dieser vierstelligen Zahlen, wobei der Text in Spalte B häufig der gleiche sein wird (benötige also eine Art Zusammenfassung...) und das zweite und schwierigste Problem ist, dass dieser Makro flexibel sein soll, d.h. wenn die Zeile 1 nicht "0001" sondern "0014" enthält, soll er den Text für "0014" nehmen, momentan macht er dann einfach nichts....
Kann mir jemand helfen?