09.04.2016, 10:42
(08.04.2016, 18:39)atilla schrieb: [ -> ]Hallo Basti,
du fragtest eventuell VBA?
folgenden Code in das Codemodul der Tabelle in der es wirken soll:
Code:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If Target <> "" Then
Application.EnableEvents = False
If Range("B1") = "" Then
Cells(1, 2) = Target
Target = ""
Else
Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = Target
Target = ""
End If
Target.Select
Application.EnableEvents = True
End If
End If
End Sub
Nach Änderung und verlassen der Zelle A1 wird der Inhalt in die ertse freie Zelle der Spalte B eingetragen
und die Zelle A1 zur erneuten Eingabe ausgewählt. Dabei ist es egal, ob mit Enter Tab oder der Maus die Zelle nach Änderung verlassen wird.
Hallo,
zu dieser Formel hätte ich noch Fragen, das funktioniert super, aber ist es möglich diese Formel auch kopierfähig zu machen?
1. Die Formel sollte hinter jeder Paarungen (Fussballspiele stehen) einmal als HEIM (A) und einmal als AUSWÄRTS (B). Ich würde gern wenn A ein Tor schießt und man den Namen einträgt, das der Name der Mannschaft (A) mit dem Torschützen verknüpft wird.
2. Falls die Formel kopierbar ist, kann man dann auch einen automatischen Counter einrichten; Beispiel: ich trage den ersten Torschützen bei HEIM ein und gleichzeitig erhöht sich das Ergebnis um das Tor?
Vielen Dank im Voraus. Und falls es doch zu viel des guten sein soll, tut's mir leid. ;;)
Beste Grüße...