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

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