Herbers Excel-Forum - das Archiv

Ranglisten-Zellenwert automatisch ergänzen

Bild

Betrifft: Ranglisten-Zellenwert automatisch ergänzen
von: forino

Geschrieben am: 21.03.2005 19:46:22
Hallo,
bin noch Excel-Neuling und brauche mal einen Ratschlag.
1. Ich möchte in einer Rangliste die Gesamtpunkte eines Spielers in Zelle C3 mit den jeweils neuen Punkten aus Zelle C6 automatisch aktualisieren. Wie lautet die Formel oder das Makro?
2. Besteht eine Möglichkeit nach der Eingabe in Zelle C6 diese Zelle wieder automatisch auf Null bzw. leer zu setzen?
3. Gibt es eine Möglichkeit für jede neue Eingabe in C6 jeweils automatisch einen Spieltag in Zelle C4 hinzuzuaddieren (was für ein wort)?
Danke vorab, forino
Bild

Betrifft: AW: Ranglisten-Zellenwert automatisch ergänzen
von: Volker

Geschrieben am: 22.03.2005 10:26:12
Tach forino
schreib das hier im VBA-Editor unter Objekte ins entsprechende Tabellenblatt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bereich As Range
Set bereich = Range("C6")
If Not Intersect(Target, bereich) Is Nothing And Target <> "" Then
Range("C3") = Range("C3") + Target
Target = ""
Range("C4") = Range("C4") + 1
End If
End Sub

Gruß
Volker
Bild

Betrifft: AW: Ranglisten-Zellenwert automatisch ergänzen
von: forino
Geschrieben am: 24.03.2005 11:40:01
@ Volker
Danke, funktioniert einwandfrei. Kann ich und wenn ja wie den Code gleichzeitig
für alle Spieler von C3-P3 verwenden?
Gruß forino
Bild

Betrifft: AW: Ranglisten-Zellenwert automatisch ergänzen
von: forino
Geschrieben am: 24.03.2005 15:55:20
@ Volker
Danke, funktioniert einwandfrei. Kann ich und wenn ja wie den Code gleichzeitig
für alle Spieler von C3-P3 verwenden?
Gruß forino
Bild

Betrifft: AW: Ranglisten-Zellenwert automatisch ergänzen
von: Volker

Geschrieben am: 24.03.2005 17:50:29
Hallo forino
hab nicht viel Zeit, aber das hier sollte gehen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then
Select Case Target.Address(0, 0)
Case "C6"
Range("C3") = Range("C3") + Target
Target = ""
Range("C4") = Range("C4") + 1
Case "D6"
Range("D3") = Range("D3") + Target
Target = ""
Range("D4") = Range("D4") + 1
Case "E6"
Case "F6"
End Select
End If
End Sub

Du mußt die Sache noch 1 zu 1 für die Spalten E bis P fortsetzen
Gruß und frohe Ostern
Volker
 Bild
Excel-Beispiele zum Thema "Ranglisten-Zellenwert automatisch ergänzen"
Automatische Datumformatierung unterdrücken Automatisch Sicherungsdatei erstellen
Automatisches Komplettieren einer Zelleingabe Zelleingaben automatisch auf volle 1,2-Teile runden
Tabelle nach Datumseintrag automatisch sortieren Eingaben in B:D automatisch mit 6 multiplizieren
Zelleingabe automatisch in Kopfzeile übernehmen Nach Zelleingabe automatische Sortierung
Automatische Sortierung bei Zelleintrag Min- und Max-Werte automatisch markieren