Übernehmen von bestimmten Werten bei Eingabe
23.03.2006 15:45:44
bestimmten
ich muss nochmal ne Frage loswerden. Gestern hat mir Heiko S. schon sehr viel weitergeholfen. Jetzt ist zu dieser Fragestellung noch was hinzugekommen. Das erste Problem war folgendes: wenn in einen bestimmten bereich ein S eingegeben wurde sollte man automatisch auf ein anderes Blatt geleitet werden, um dort noch weitere Eingaben zu machen. Der code von Heiko sieht wie folgt aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTarget As Range, rngUeBereich As Range
' Der zu überwachende Bereich
Set rngUeBereich = Range("F8:F59,I8:I59")
Set rngTarget = Application.Union(Range(Target.Address), rngUeBereich)
If rngTarget.Address = rngUeBereich.Address Then
If Target.Count = 1 Then
If UCase(Target.Text) = "S" Then
Worksheets("Begründungen").Activate
' Wenn auch noch eine bestimmte Zelle dann so.
' Worksheets("Begründungen").Range("C13").Activate
End If
End If
End If
Set rngUeBereich = Nothing
Set rngTarget = Nothing
End Sub
Das hat auch alles wunderbar geklappt. Bloß jetzt sollen in das Tabellenblatt (im code heißt das "Begründungen") noch Eintragungen aus dem vorherigen Blatt übernommen werden. Das wäre z.b der Fall wenn ich in F8 ein "S" eingebe. Dann soll ein Datum das dann in C8 steht in die andere Tabelle ("Begründungen") übernommen werden. Außerdem soll der Name übernommen werden der wäre dann für die Spalte F in Zelle D5 und für zeile I in Zelle G5 (also Zeile 5 bleibt gleich und Spalte ändert sich um 3). Das Datum muss aber immer aus der Spalte C und der Zeile in der das "S" eingetragen worden ist übernommen werden.
So ich hoffe ich habe mich nicht zu kompliziert ausgedrückt. (leider hat das mit dem File-Upload nicht funktioniert sonst hätte ich noch ne Beispiel-datei drangehängt.
Für eure Lösungen wäre ich sehr Dankbar!!!
Gruß,
thorben
Anzeige