Datum

Titel

25.04.2024 18:22:55

Zeilen mit bestimmtem Datum in andere Mappe übertragen

25.04.2024 18:14:45

VBA - Excell - Kopie und "Diebstahl" Schützen

25.04.2024 17:49:39

Bedingte Formatierung

25.04.2024 16:50:59

2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

680to684

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

"Zähler" setzen

Forumthread: "Zähler" setzen
5 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

"Zähler" setzen

16.10.2005 17:33:26

Mola

Hallo,
leider komme ich gerade nicht mehr weiter - und so veruche ich hier nochmal mein Glück.
Ich möchte per Makro erreichen, dass geprüft wird ob ab Zelle B8 abwärts Einträge drin stehen bzw. ob diese Zellen leer sind. Steht etwas in den Zellen drin möchte ich gern in der dazugehörigen A-spalte einen Zähler runterlaufen lassen.
Also z.B. in B8 steht etwas, dann sollte das Makro mir in A8 "1" schreiben.
Steht in B9 etwas dann in A9 "2" usw.... die Eintäge beginnen immer ab B8...Leerzeilen gibt es nicht.
Steht nix in B8 dann auch kein Zähler in A8....
Meine Versuche sind bisher immer gescheitert...
Vielen Dank!
mfg
Mola

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: "Zähler" setzen

16.10.2005 17:38:24

Hajo_Zi
AW: "Zähler" setzen

16.10.2005 18:15:14

Mola
AW: "Zähler" setzen

ransi
Danke - funktioniert!

16.10.2005 18:57:16

Mola
AW: "Zähler" setzen

16.10.2005 18:59:50

dan

AW: "Zähler" setzen

16.10.2005 17:38:24

Hajo_Zi

Hallo Mola,
schaue mal auf meine Homepage da ist ein Beispiel auf der Seite ohne VBA.
Link zur Datei
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Home und Excel Version XP 2003 SP2.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP2.

"Wer Rechtschreibfehler findet, darf sie behalten!"

AW: "Zähler" setzen

16.10.2005 18:15:14

Mola

Hallo Hajo,
vielen Dank für Deine Anwort. Ist genau das was ich brauche - aber eben leider nur per VBA. Auf dem Blatt welches ich bearbeite sollten keine Formeln hinterlegt sein.
Ich Danke Dir aber trotzdem für den interessanten Hinweis!
Gruß und schönen Abend noch!
Mola

AW: "Zähler" setzen

ransi

Hallo mola
versuchs mal so:
Das richtige ereigniss zum anstoßen der sub musst du dir noch überlegen.
Option Explicit
Public Sub test()
    Dim letzte As Range
    Dim zelle As Range
Set letzte = Range("b65536").End(xlUp)
Range("A:A").ClearContents
For Each zelle In Range(Cells(8, 2), Cells(letzte.Row, 2))
    If zelle <> "" Then zelle.Offset(0, -1) = WorksheetFunction.Max(Range(Cells(1, 1), Cells(zelle.Row, 1))) + 1
Next
End Sub
ransi

ransi

Danke - funktioniert!

16.10.2005 18:57:16

Mola

Hallo ransi,
einfach genial - Danke!
Für mich wär das "Mission-Impossible" geworden :o)
Ciau
Mola

AW: "Zähler" setzen

16.10.2005 18:59:50

dan

Hallo Mola, hier noch etwas von mir ;-). Gruss D.
Private Const START_ON_ROW As Long = 8
Private Const TEST_IN_COLUMN As String = "B"
Private Const ADD_COUNTER_TO_COLUMN As String = "A"


Sub AddCounter()
Dim lngRow As Long
Dim lngCounter As Long
On Error GoTo Err_AddCounter
' clear the counter-region
Range(ADD_COUNTER_TO_COLUMN & (START_ON_ROW) & ":" & _
ADD_COUNTER_TO_COLUMN & (Rows.Count)).Clear
lngRow = 0
lngCounter = 0
' beginn on START_ON_ROW, end on last row
For lngRow = START_ON_ROW To Rows.Count
' add counter if in test-cell is a value
If (Cells(lngRow, TEST_IN_COLUMN).Value <> "") Then
lngCounter = lngCounter + 1
Cells(lngRow, ADD_COUNTER_TO_COLUMN).Value = lngCounter
End If
Next lngRow
Exit Sub
Err_AddCounter:
VBA.MsgBox Err.Description, vbCritical, "Error [" & Err.Number & "] occured in 

Sub AddCounter"
End Sub