daten erkennen wenn schon vorhanden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema " daten erkennen wenn schon vorhanden"