Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte Nummerieren wenn X in Zeile

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
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
Gerne ;-)) geschlossen o.w.T
06.07.2005 14:01:22
Harald
;

Forumthreads zu verwandten Themen

Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Letzter Eintrag von Zeile in Spalte A übernehmen
Zeile

Guten Tag
Ich suche nach einer Formel, die mir den letzten eingetragenen Wert (Wert aus hinterster Spalte) von verschiedenen Zeilen jeweils in die gleiche Zeile in Spalte A einträgt.
Hat mir jemanden einen Tipp?
Danke, Peter
03.09.2008 12:58:17
Thread-ID: 1007081
3 Beiträge
Anzeige
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
Neuanordnung von Quelldaten aus Spalte in Zeile
Quelldaten

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich habe zwei Excelspalten mit Daten.
Die erste Spalte enthält eine fortlaufende Nummerierung. In der zweiten Spalte befinden sich untereinander zwei zusammengehörige Werte, also z. B. so:
Spalte 1___Spalt...
10.10.2008 15:05:18
Thread-ID: 1015600
7 Beiträge
Spalte ausblenden, wenn in Zeile 9, die Füllfarbe?
Selma

Hallo Leute,
wie kann ich die Spalten die in Zeile 9 folgende Füllfarbe 6, 39, 46, 48, 51, 52, 53 haben, ausblenden?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
13.10.2008 11:06:05
Thread-ID: 1015964
17 Beiträge
Anzeige
Spalte ausblenden, wenn in Zeile 7 der Zelleninhal
Selma

Hallo Leute,
wie kann ich die Spalten ausblenden, die in Zeile 7 als Zelleninhalt "x" oder "D" haben?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
29.10.2008 15:41:00
Thread-ID: 1020332
4 Beiträge
in Zeile oder Spalte Wert suchen
Lars

Hallo,
ich habe eine Zeile in der z.B. B1 B2 B3 usw. stehen.
Gibt es eine einfache Möglichkeit nach der Spalte zu suchen, in der z.B. B2 steht. Derzeit versuche ich es über eine komplizierte If-Abfrage.
Ich habe auch die Worksheetfunction "search" gefunden, weiß aber nicht, wie sie...
12.11.2008 11:12:43
Thread-ID: 1023752
7 Beiträge
Anzeige
Zeilen einfügen vor Zeile mit Wert XX in Spalte D
NetMare

Hallo zusammen,
ich möchte gern per script eine Zeile an bestimmten Stellen einfügen.
Das Einfügen klappt ja über
Worksheets("Tabelle1").Rows(7).Insert
ganz gut...
Ich habe mehrere Zeilen in der Liste mit unterschiedlichen Dingen die ich mir auch über scripte erstellen lasse...
25.11.2008 11:49:00
Thread-ID: 1027648
2 Beiträge
Anzeige
Leere Zeilen in Tabellenspalte zählen
A.Franz

Hallo...
ich habe fogendes Problem u.hoffe das mir jemand helfen kann.Ich Habe eine UserForm mit Listbox u.Textbox.Über diese schreibe ich Werte in die Tabelle (Spalte A).Ist es möglich,wenn ich die Userform aufrufe,das mir die Anzahl noch freier Zeilen in Spalte A z.B in einer TextBox oder...
03.12.2008 12:55:46
Thread-ID: 1029789
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige