Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wenn Zelle geändert counter +1

wenn Zelle geändert counter +1
27.09.2007 11:00:00
maruseru
Hallo werte Profis
Für eine Statistik möchte ich gerne festhalten wie oft ein Antrag besprochen wurde. Es wird jeweils das besprechungsdatum festgehalten z.B. in C9. Nun möchte ich in C10 einen counter haben, der jeweils bei der eingabe in C9 um den Wert 1 erhöht wird.
Danke und Gruss
Maruseru

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wenn Zelle geändert counter +1
27.09.2007 11:10:00
Chaos
Servus Maruseru,
z.B. so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$9" Then
If Target.Value > 0 And IsDate(Target) Then
Range("C10").Value = Range("C10").Value + 1
End If
End If
End Sub


Gruß
Chaos

AW: wenn Zelle geändert counter +1
27.09.2007 13:56:00
maruseru
Hallo Chaos
Erstmal vielen Dank. Hat wunderbar funktioniert. Nun bin ich noch auf eine Idee gekommen für eine andere Tabelle.
In einer Mini-Projekt Tabelle gibt es ein 'Memo Feld' nun sollte ähnlich wie von Dir gesendet jeweils pro Eintrag (Reihe) in Spalte H der Counter erhöht werden wenn in Spalte F text editiert wird.
Freundliche Grüsse
Maruseru

Anzeige
AW: wenn Zelle geändert counter +1
27.09.2007 13:56:06
maruseru
Hallo Chaos
Erstmal vielen Dank. Hat wunderbar funktioniert. Nun bin ich noch auf eine Idee gekommen für eine andere Tabelle.
In einer Mini-Projekt Tabelle gibt es ein 'Memo Feld' nun sollte ähnlich wie von Dir gesendet jeweils pro Eintrag (Reihe) in Spalte H der Counter erhöht werden wenn in Spalte F text editiert wird.
Freundliche Grüsse
Maruseru

AW: wenn Zelle geändert counter +1
27.09.2007 14:22:24
Chaos
Servus,
dann so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim reihe As Long
If Not Intersect(Target, Range("F:F")) Is Nothing Then
If Not IsDate(Target) And Not IsNumeric(Target) Then
reihe = Target.Row
Range("H" & reihe).Value = Range("H" & reihe).Value + 1
End If
End If
End Sub


zählt nur bei Texteingabe, Datum und Zahlen sind ausgeschlossen. Gültig für die gesamte Spalte F, der Zähler zählt jeweils in der Targetzeile.
Gruß
Chaos

Anzeige
AW: wenn Zelle geändert counter +1
27.09.2007 17:16:00
maruseru
Hallo Chaos
Alles funktioniert einwandfrei. Somit wird wieder einmal bestätigt, dass die Chaos Theorie in der Praxis funktioniert.
Danke und Gruss
Maruseru

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige