Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text prüfen dann Zähler +1

Forumthread: Text prüfen dann Zähler +1

Text prüfen dann Zähler +1
07.06.2022 15:44:23
Dennis
Hallo,
ich habe folgendes simples Problem das ich mit VBA gelöst haben muss
In Spalte E werden in ungeordneter Reihenfolge 2 verschiedene Texte angewendet wie zb ProduktA und ProduktB
ProduktA erhält in Spalte F eine 3stellige Nummer, während ProduktB in Spalte F eine 4stellige Nummer erhält.
Nun möchte ich, dass wenn ich Produkt A oder B eingebe, das die letzte vergebene Zahl um +1 in Spalte F hochgezählt wird, passend zu dem Produkt.
Vielen dank für eure Hilfe
Merci
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text prüfen dann Zähler +1
07.06.2022 16:01:17
Rudi
Hallo,
beide Text müssen mit einer Nummer in der Tabelle stehen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
Select Case Target
Case "ProduktA", "ProduktB"
Target.Offset(, 1) = WorksheetFunction.MaxIfs(Columns(6), Columns(5), Target) + 1
End Select
End If
End Sub
Gruß
Rudi
Anzeige
AW: Text prüfen dann Zähler +1
07.06.2022 16:11:03
ChrisL
Hi Dennis

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Columns(5)) Is Nothing Then
For Each c In Intersect(Target, Columns(5)).Cells
If c = "" Then
c.Offset(0, 1) = ""
Else
c.Offset(0, 1) = WorksheetFunction.MaxIfs(Columns(6), Columns(5), Target) + 1
Select Case c
Case "Produkt A": c.Offset(0, 1).NumberFormat = "000"
Case "Produkt B": c.Offset(0, 1).NumberFormat = "0000"
End Select
End If
Next c
End If
End Sub
cu
Chris
Anzeige
;

Forumthreads zu verwandten Themen

Formeln miteinander vergleichen
Pfannen-Meister

Guten Abend,
ich möchte gerne zwei Excel-Formeln miteinander begreifen, habe in der Umsetzung aber ein Problem:
Formel in der Zelle A1 = D1*E1
Formel in der Zelle A2 = D1+E1
Wie schaffe ich es, die Formeln in der Zelle A1 und A2 miteinander zu vergleichen und NICHT das Ergebni...
08.09.2008 17:18:00
Thread-ID: 1008216
3 Beiträge
Anzeige
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Formel, Index oder Vergleich
Kurt

Guten Abend Zusammen,
ich habe ein kleines Problem, ich möchte in der Zelle "O10" eine Zahl eingeben
aus den Zellen mit gelben Hintergrund.
Dann soll der Preis gefunden werden und reingesetzt, rechts daneben.
Ich habe mal ein Muster beigefügt:
https://www.herber.de/bbs/user/...
06.10.2008 18:26:46
Thread-ID: 1014519
14 Beiträge
Anzeige
Textbox - wenn nicht mehr als 3 stellen dann
Patrick

Hallo,
ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
12.11.2008 16:39:47
Thread-ID: 1023910
5 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Wenn 0 dann löschen
Ralf

Hallo und eien schönen 4 adv.
ich habe da mal ein anliegen und zwar habe ich eine Formel z.B in F 17
=E17-(B161)*RegelMoDo-(B16=6)*RegelFr
Kann man die auch noch so ummodelieren, dass wenn in D 17 = 0 Dann inhalt in E und F 17 löschen also das die Zellen leer sind
20.12.2009 11:39:13
Thread-ID: 1125105
12 Beiträge
Formel Lineare Gleichung
Richy

Tut mir leid, dass ich nochmals nerven muss.......
ich habe folgende Tabelle ........https://www.herber.de/bbs/user/67325.xls und möchte die FORMEL (nicht die Formatierung) so anpassen, dass bei der ganzen Berechung für JEDE VARIABLE ein positiver Wert erscheint.
20.01.2010 15:39:50
Thread-ID: 1131390
3 Beiträge
Wenn o dann Text in A1 rot
Heinz A. Wankmüller
Hallo Jörg,dafür verwendest am besten die Bedingte Formatierung.
Setze den Cursor in die Zelle A1 und rufe Format/Bedingte Formatierung auf. Wähle anstatt Zellwert ist den Eintrag Formel ist und gib die Formel =$A$12="o" ein. Danach definierst du noch das gewünschte Format mit roter, vielleicht...
16.04.2002 17:25:23
Thread-ID: 113808
2 Beiträge
Wenn Jahreszahl übereinstimmt,dann, sonst...
Wolfgang

Hallo,
der nachfolgende Code teilt eine Summe ggfs. nach Jahren auf. Wie muss ich den Code ändern, damit eine Abfrage "eingebaut" wird, die überprüft, ob das Jahr -intB5j- mit der Jahreszahl in Tabelle "Daten", Zelle M1 übereinstimmt. Wenn ja, dann entsprechend weiter.
Wenn nein, dann n...
21.02.2010 08:29:01
Thread-ID: 1139974
6 Beiträge
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 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