Herbers Excel-Forum - das Archiv
daten erkennen wenn schon vorhanden
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