Werte auslesen und neu eintragen

Computer: Software & Programmierung Visual Basic
#1

Hallo

ich habe eine Excel Tabelle die ausgelesen werden soll.
z.B
Spalte…A B C D E F G H I …
in zeile 3 sind … S N F S N S S F Jetzt soll
in zeile 4…5 2 3 5 2 3 2 2 5 und
in zeile 5…8 4 6 8 4 6 4 4 8 eingefügt werden.

die werte in zeile 3 sind nicht fest und sollen verändert werden können.
geht das man nach Spalte durchsucht und wenn S,F oder N eingetragen wird beim nächsten start die werte eingefügt werden.
danke
gruß GECKO

#2

Sub Auto_Open()
Range(„A3“).Select

Do While ActiveCell.Value „“
If ActiveCell.Value = „S“ Then
Wert1 = 5
Wert2 = 8
ElseIf ActiveCell.Value = „N“ Then
Wert1 = 2
Wert2 = 4
ElseIf ActiveCell.Value = „F“ Then
Wert1 = 3
Wert2 = 6
Else
MsgBox „Der Wert entspricht nicht S,N oder F“, vbOKOnly, „Hinweis“
End If
ActiveCell.Offset(1, 0) = Wert1
ActiveCell.Offset(2, 0) = Wert2
ActiveCell.Offset(0, 1).Select
Loop
End Sub