Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellenvergleich und neu anlegen

Zellenvergleich und neu anlegen
03.02.2004 11:06:59
Joachim
Guten Tag zusammen
Suche eine Lösung in VBA
In Zelle B1 steht eine Nummer in folgender Form 001-04-JS
Mittels VBA soll in der gleichen TAbelle in Spalte A ab Zeile 10 nach unten gesucht werden ob diese Nummer schon vorhanden wenn Ja Meldung " Nummer schon vorhanden" wenn Nein nach dem letzten eintrag in der Spalte einfügen und Meldung " neu angelegt"
Für eure Bemühungen danke ich schon im vorraus
Besten Dank
Joachim

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

Betreff
Datum
Anwender
Anzeige
AW: Zellenvergleich und neu anlegen
03.02.2004 11:27:14
PeterW
Hallo Joachim,
kopiere folgenden Code in das Modul der Tabelle, in der es arbeiten soll:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If WorksheetFunction.CountIf(Range(Cells(10, 1), Cells(Range("A65536").End(xlUp).Row, 1)), Cells(1, 2)) = 1 Then
MsgBox "Nummer schon vorhanden"
Else
Cells(Range("A65536").End(xlUp).Row + 1, 1) = Cells(1, 2)
MsgBox "neu angelegt"
End If
End If
End Sub

Gruß
Peter
AW: Zellenvergleich und neu anlegen
03.02.2004 11:54:13
Joachim
Danke für die prompte Hilfe
klappt wunderbar

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige