Liste automatisch erweitern

[basti1912]

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...