daten erkennen wenn schon vorhanden

• daten erkennen wenn schon vorhanden von Daniel vom 24.09.2003 17:15:06
  • AW: daten erkennen wenn schon vorhanden - von ChrisL am 24.09.2003 17:32:37
    • AW: daten erkennen wenn schon vorhanden - von ChrisL am 24.09.2003 17:35:14
    • AW: daten erkennen wenn schon vorhanden - von daniel am 24.09.2003 17:44:30
      • AW: daten erkennen wenn schon vorhanden - von ChrisL am 24.09.2003 17:47:03
        • AW: daten erkennen wenn schon vorhanden - von daniel am 24.09.2003 17:52:22
          • Danke für die Rückmeldung oT - von ChrisL am 24.09.2003 20:22:25

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


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




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




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




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




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

Danke Chris
es funkt!!!!!

Danke noch mal!!




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

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

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