Eintrag wenn KZ aus anderer Datei gleich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Abgleichen() Const fn = "Datei2.xls" Dim i As Long, lz As Long Dim shSuch As Worksheet, shListe As Worksheet Dim Suchbereich As Range, zelle As Range 'Bildschirm "enfrieren" Application.ScreenUpdating = False 'aktuelles Blatt merken Set shListe = ActiveSheet 'Datei zum Abgleichen (schreibgeschützt) öffnen Workbooks.Open Filename:=ThisWorkbook.Path & "\" & fn, ReadOnly:=True 'Suchbereich in Datei2 festlegen: Set shSuch = ActiveWorkbook.Sheets("Tabelle1") 'Tabellennamen anpassen lz = shSuch.Cells(Rows.Count, 1).End(xlUp).Row Set Suchbereich = shSuch.Range(shSuch.Cells(5, 1), shSuch.Cells(lz, lz)) With shListe lz = .Cells(Rows.Count, 1).End(xlUp).Row 'Spalte A, Zeile 5 bis letzte Zeile durchsuchen For i = 5 To lz 'Leerzellen übergehen If .Cells(i, 1) <> "" Then 'nach Kennzeichen in Datei2 suchen Set zelle = Suchbereich.Find(What:=.Cells(i, 1), LookAt:=xlWhole) If Not zelle Is Nothing Then 'gefunden: Werte einsetzen .Cells(i, 17) = "ERLEDIGT" .Cells(i, 18) = zelle.Offset(0, 7) Else 'nicht gefunden: evtl vorhandene Werte löschen .Cells(i, 17) = "" .Cells(i, 18) = "" End If End If Next i End With Workbooks(fn).Close False Application.ScreenUpdating = True MsgBox "Liste wurde aktualisiert!", vbInformation End Sub

Hallo Klaus,
ok.
1. Makro in ein VBA-Modul kopieren
Dazu drückst du in Excel Alt-F11, dann bist du im VB-Editor.
Nun oben im Menü Einfügen -> Modul wählen. Dann erscheint rechts ein neues Codefenster. Hier rein kopierst du mit Strg-C/Strg-V meinen geposteten Code von


Sub ...()
bis
End Sub

.
Jetzt kannst du den VB-Editor wieder schließen, jedenfalls musst du zurück zum Excel-Fenster.
2. Öffne die Symbolleiste "Steuerelement-Toolbox":
(Rechtsklick auf eine Symbolleiste, Symbolleiste auswählen)
3. Entwurfsmodus einschalten
Dazu in der o.g. Symbolleiste auf das Geodreieck klicken
4. Befehlsschaltfläche erzeugen
Drücke in der Symbolleiste auf das Symbol mit dem Button (es erscheint "Befehlsschaltfläche" als gelbes PopupFenster). Dadurch ändert sich der Mauszeiger zu einem Kreuz.
Ziehe nun auf den Tabellenblatt einen Button auf. Er heißt standardmäßig "CommandButton1".
Rechtklick auf den Button, "Eigenschaften", dann öffnen sich das Eigenschaftenfenster für den Button. Hier die Eigenschaft "Caption" (Bezeichnung) ändern, um diese anzupassen.
Das Eigenschaftenfenster kannst du nun wieder schließen.
5. Makro dem Button zuweisen
Rechtsklicke auf den erzeugten Button, wähle "Code anzeigen" und du bist wieder im VB-Editor. Diesmal jedoch nicht im Modul mit dem Makro, sondern im Tabellenblattmodul (siehts du links im Projektexplorer an der Hervorhebung).
Hier wurde durch den Befehl "Code anzeigen" automatisch ein Prozedurrumpf ereugt:


Private Sub CommandButton1_Click()
End Sub

und hier mittenrein muss nun der Aufruf deinem Makros, also:


Private Sub CommandButton1_Click()
Abgleichen
End Sub

So, nun kannst du den VB-Editor wieder schließen.
Jetzt unbedingt den Entwurfsmodus durch erneutes Drücken auf das Symbol mit dem Geodreieck abschalten und (wenn es stört) die Symbolleiste schließen.
Jetzt müsste dein Knopf eigentlich schon funktionieren.
Probiere es aber zu Beginn erst mal an einer Kopie deiner Datei.
Viel Erfolg,
Matthias

Beliebteste Forumthreads (12 Monate)

Eintrag wenn KZ aus anderer Datei gleich

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eintrag wenn KZ aus anderer Datei gleich

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread