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