Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
632to636
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte Nummerieren wenn X in Zeile

Spalte Nummerieren wenn X in Zeile
06.07.2005 11:00:32
helena
Hallo
habe dies im heutigen Forum gefunden

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If WorksheetFunction.CountIf(Range("B:B"), Target) = 1 Then
Target.Offset(0, -1) = WorksheetFunction.Max(Range("A:A")) + 1
End If
End If
End Sub

es funktioniert, möchte aber die Nummerierung haben in Spalte A
wenn im Bereich von B9:N500 in Zeile ein "X" o. "x" eingetragen wird
es können im Bereich Zb. B9:N9(Zeile) auch mehrmals die "X" vorkommen.
Danke für Eure Hilfe
gruss helena

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

Betreff
Datum
Anwender
Anzeige
AW: Spalte Nummerieren wenn X in Zeile
06.07.2005 12:14:43
Harald
Hallo Helena,
ich hab mal was gebastelt. Getestet und er erkennt x und X.

Sub wennx()
Dim n as integer, i as integer
n = 1
For i = 9 To 500
On Error Resume Next
If Application.WorksheetFunction.CountIf(Range("B" & i & ":N" & i), "x") >= 1 Then
Cells(i, 1) = n
n = n + 1
End If
Next i
End Sub

Gruß
Harald
AW: Spalte Nummerieren wenn X in Zeile
06.07.2005 13:11:53
helena
Hallo Harald

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Integer, i As Integer
n = 1
For i = 9 To 500
On Error Resume Next
If Application.WorksheetFunction.CountIf(Range("B" & i & ":N" & i), "x") >= 1 Then
Cells(i, 1) = n
n = n + 1 'hier steckt Code
End If
Next i
End Sub

brauche es Ereignis gesteuert habe Zeile markiert wo es stecken bleibt
DANKE
gruss helena
Anzeige
AW: Spalte Nummerieren wenn X in Zeile
06.07.2005 13:45:11
Harald
Hmmm, da hat sich der Code wohl selbst überholt.
War übrigens noch ein Fehler drin.
In dieser Fassung sollte es funzen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long, i As Long
Application.EnableEvents = False
n = 1
For i = 9 To 500
On Error Resume Next
If Application.WorksheetFunction.CountIf(Range("B" & i & ":N" & i), "x") >= 1 Then
Cells(i, 1) = n
n = n + 1
Else
Cells(i, 1).ClearContents
End If
Next i
Application.EnableEvents = True
End Sub

Gruß
Harald
AW: Spalte Nummerieren wenn X in Zeile
06.07.2005 13:48:31
helena
Hallo Harald
DANKE perfekt, selbst beim Zeilen löschen werden Nummern nachgetragen
gruss helena
Anzeige
Gerne ;-)) geschlossen o.w.T
06.07.2005 14:01:22
Harald

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige