Hallo liebe Leute,
ich habe vor langer Zeit mal in Visual Basic programmiert und steige so langsam wieder rein. Nun möchte ich in Excel VBA folgendes programmieren:
Wenn ich z.B. in Zelle B2 eine Zahl Eintrag die größer als 10 ist, dann soll in Zelle C2 ein "A" stehen. Allerdings möchte ich keine feste Zelle angeben, d.h. egal in welcher Zelle ich in Spalte 2 eine Zahl eintrage, soll es überprüfen ob die Zahl größer als 10 ist und direkt in die Nachbarzelle in Spalte 3 ein "A" eintragen.
Ich habe folgenden Ansatz dafür:
Sub Wert()
Dim Eingabe As Integer
Dim Buchstabe As String
Dim i As Integer
i = 2
Eingabe = Sheets("Tabelle1").Cells(i, 2)
Buchstabe = Sheets("Tabelle1").Cells(i, 3)
If Eingabe > 10 Then
Buchstabe = "A"
i = i + 1
End If
End Sub
Ich danke für jede Hilfe!
LG |