Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1884to1888
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
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

301 Forumthreads zu ähnlichen 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
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
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
Anzeige
Formeln in andere Spalte an gleiche Stelle kopiere
Eva

Hallo,
ich habe eine lange Tabelle mit hinterlegten Formeln in verschiedenen Zeilen. Nun möchte ich eine weitere Spalte einfügen. In der Spalte sind Werte. Ich möchte diese Werte, wie in der ersten Spalte auch mit den Formeln addieren, multiplizieren, usw..
Damit ich aber in der neuen S...
15.12.2008 15:03:00
Thread-ID: 1033050
9 Beiträge
Wenn Zahl Dann Datum + 1
Dominik

Hallo zusammen,
folgendes Problem:
Ich habe 2 Spalten - SpalteA (Inhalt: Julianischer Kalender bzw. Zahlen von 100 bis 113)
SpalteB (Inhalt: soll mit einem Datum gefüllt werden)
Nun in Spalte A wechseln die Zahlen nicht von Zeile zu Zeile, sondern es kommt vor dass die Zahl 100...
06.02.2009 12:08:00
Thread-ID: 1047706
9 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 Zahl ungerade dann in Spalte B eine 1
Josef

Hallo!
Ich habe in der Spalte AF ca. 47000 gerade und ungerade Zahlen stehen. Ich möchte nun bei allen ungeraden Zahlen in der spalte rechts daneben eine 1 eintragen lassen. wie würde hier bitte eine VBA Lösung oder eine formel lauten?
Danke
Josef
14.07.2009 15:05:45
Thread-ID: 1088520
8 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
13
4
4
8
8
3
7
2
11
7
8
1
2
1
5
10
10
8
4
1
22
2
4