Das Archiv des Excel-Forums
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
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 |
 |