Das Archiv des Excel-Forums

daten erkennen wenn schon vorhanden

Bild

Betrifft: daten erkennen wenn schon vorhanden
von: Daniel

Geschrieben am: 24.09.2003 17:15:06

hallo Freunde,
wie kann man d. Makro ergänzen, damit sie Daten schon vorhanden erkennt und nicht überträgt? (mit hinweis "Daten schon vorhanden!!")


Sub archivieren1()
If MsgBox("daten übertragen ? ", vbInformation + vbYesNo)= 7 Then Exit Sub
Dim LoLetzte As Long
With Worksheets("Arbs")
LoLetzte = .Range("b65536").End(xlUp).Row + 1
.Cells(LoLetzte, 1) = Worksheets("Rebs").Range("h11")
.Cells(LoLetzte, 2) = Worksheets("Rebs").Range("h10")
Sheets("Arbs").Select
If MsgBox("Daten archiviert!", vbInformation + vbYesNo, "OFFICECONTROL") = 6 Then
Sheets("tab1").Select
End If
End With
End Sub


Danke Daniel
Bild


Betrifft: AW: daten erkennen wenn schon vorhanden
von: ChrisL
Geschrieben am: 24.09.2003 17:32:37

Hi Daniel

Sind beide Zellen (H11 und H10) massgebend, oder genügt evtl. schon eine Zelle als eindeutige Identifikation. Denke an ZÄHLENWENN resp. COUNTIF.

If Application.WorksheetFunction.CountIf(.Range("A1:A" & .Range("A65536").End(xlUp).Row), Worksheets("Reps").Range("H11") > 0 Then
MsgBox "Eintrag bereits vorhanden."
exit Sub
End If

Gruss
Chris


Bild


Betrifft: AW: daten erkennen wenn schon vorhanden
von: ChrisL
Geschrieben am: 24.09.2003 17:35:14

Fehlt noch eine Klammer

If Application.WorksheetFunction.CountIf(.Range("A1:A" & .Range("A65536").End(xlUp).Row), Worksheets("Reps").Range("H11")) > 0 Then
MsgBox "Eintrag bereits vorhanden."
Exit Sub
End If


Bild


Betrifft: AW: daten erkennen wenn schon vorhanden
von: daniel
Geschrieben am: 24.09.2003 17:44:30

Hallo Chris,
danke für deine Antwort.

Massgebend ist H10.
kannst du, bitte dein Code in mein Code integrieren: ich bin zu dumm dafür!!!
Danke
Daniel


Bild


Betrifft: AW: daten erkennen wenn schon vorhanden
von: ChrisL
Geschrieben am: 24.09.2003 17:47:03

Hi Daniel



Sub archivieren1()
If MsgBox("daten übertragen ? ", vbInformation + vbYesNo)= 7 Then Exit Sub
Dim LoLetzte As Long
With Worksheets("Arbs")
If Application.WorksheetFunction.CountIf(.Range("B1:B" & .Range("B65536").End(xlUp).Row), Worksheets("Reps").Range("H10")) > 0 Then
MsgBox "Eintrag bereits vorhanden."
exit Sub
End If
LoLetzte = .Range("b65536").End(xlUp).Row + 1
.Cells(LoLetzte, 1) = Worksheets("Rebs").Range("h11")
.Cells(LoLetzte, 2) = Worksheets("Rebs").Range("h10")
Sheets("Arbs").Select
If MsgBox("Daten archiviert!", vbInformation + vbYesNo, "OFFICECONTROL") = 6 Then
Sheets("tab1").Select
End If
End With
End Sub




Nicht getestet, aber müsste funken.

Gruss
Chris


Bild


Betrifft: AW: daten erkennen wenn schon vorhanden
von: daniel
Geschrieben am: 24.09.2003 17:52:22

Danke Chris
es funkt!!!!!

Danke noch mal!!


Bild


Betrifft: Danke für die Rückmeldung oT
von: ChrisL
Geschrieben am: 24.09.2003 20:22:25




 Bild

Excel-Beispiele zum Thema " daten erkennen wenn schon vorhanden"

Verweise anhand einer Kopfzeile erkennen download In der UserForm aufrufende Schaltfläche erkennen download
Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen download Abfrage, ob ein Menü in einer Menüleiste vorhanden ist download
Warnung, wenn Wert bereits vorhanden download Prüfen, ob ein Menü vorhanden ist download
Datei kopieren, wenn noch nicht vorhanden download CommandBar in Abhängigkeit vorhandener Makros erstellen download
Als Text vorhandene Werte in Zahlen umwandeln download Eingabe auf bereits vorhanden prüfen und, wenn nein, einfügen download
Prüfung, welche Tabellenblätter aus einer Liste vorhanden sind download Prüfung, ob Daten schon vorhanden und Meldung download
Vorhandensein von Verzeichnissen prüfen und Ordner anlegen download TextBox im Arbeitsblatt löschen, wenn vorhanden download
Wenn Name zu Telefonnummer vorhanden, eintragen download Artikel bei Nichtvorhandensein eintragen, sonst addieren download
Wenn Wert vorhanden, Wert in Klammern setzen download Auslesen der aktuell in der Zwischenablage vorhandenen Formate download
Nur SVERWEIS eintragen, wenn Wert vorhanden download Über UserForm-Datensätze nur eintragen, wenn nicht vorhanden download
Tabellenblätter kopieren, wenn Email-Adresse vorhanden download