MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 17.10.2018, 16:13   #1
hugo64874
Neuer Benutzer
Neuer Benutzer
Standard VBA - Sprünge zu Makros

Hilfe ,

ich vergleiche 2 Tabellenblätter miteinander und wenn Unterschiede in den Zeilen sind, werden diese in ein weiteres Tabellenblatt kopiert. Klappt auch soweit.
Nun möchte ich aber, wenn es Änderungen gibt, das dieses Tabellenblatt als extra Datei gespeichert wird und einen Meldung kommen "Änderungen sind da", wenn es keine Änderungen gibt, soll einfach eine Meldung kommen "Keine Änderungen" und sich das Programm beenden. Ich habe ein Makro für den Vergleich, ein Makro zum Speichern der Änderungen und ein Makro zum beenden ohne Speichern. Aber wie bzw. an welcher Stelle im Code rufe ich die entsprechenden Makros auf???
Hier mein Vergleichsmakro:
Sub Vergleich()
' Vergleich Makro
'
Dim treffer As Boolean
Dim gesamt_tab1 As String
Dim gesamt_tab2 As String
Dim a As Integer
Dim b As Integer
treffer = False
For a = 1 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
gesamt_tab1 = Tabelle1.Cells(a, 1) & " " & Tabelle1.Cells(a, 2) & " " & Tabelle1.Cells(a, 3) & " " & Tabelle1.Cells(a, 4) & " " & Tabelle1.Cells(a, 5) & " " & Tabelle1.Cells(a, 6) & " " & Tabelle1.Cells(a, 7) & " " & Tabelle1.Cells(a, 8) & " " & Tabelle1.Cells(a, 9) & " " & Tabelle1.Cells(a, 10)
For b = 1 To Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row
gesamt_tab2 = Tabelle2.Cells(a, 1) & " " & Tabelle2.Cells(a, 2) & " " & Tabelle2.Cells(a, 3) & " " & Tabelle2.Cells(a, 4) & " " & Tabelle2.Cells(a, 5) & " " & Tabelle2.Cells(a, 6) & " " & Tabelle2.Cells(a, 7) & " " & Tabelle2.Cells(a, 8) & " " & Tabelle2.Cells(a, 9) & " " & Tabelle2.Cells(a, 10)
If gesamt_tab1 = gesamt_tab2 Then
treffer = True
Exit For
End If
Next b
If treffer = False Then
zeile = (Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row) + 1
Tabelle3.Cells(zeile, 1) = Tabelle1.Cells(a, 1)
Tabelle3.Cells(zeile, 2) = Tabelle1.Cells(a, 2)
Tabelle3.Cells(zeile, 3) = Tabelle1.Cells(a, 3)
Tabelle3.Cells(zeile, 4) = Tabelle1.Cells(a, 4)
Tabelle3.Cells(zeile, 5) = Tabelle1.Cells(a, 5)
Tabelle3.Cells(zeile, 6) = Tabelle1.Cells(a, 6)
Tabelle3.Cells(zeile, 7) = Tabelle1.Cells(a, 7)
Tabelle3.Cells(zeile, 8) = Tabelle1.Cells(a, 8)
Tabelle3.Cells(zeile, 9) = Tabelle1.Cells(a, 9)
Tabelle3.Cells(zeile, 10) = Tabelle1.Cells(a, 10)
End If
treffer = False
Next a
'
End Sub
Irgendwie bekomme ich es nicht auf die Reihe?
Wie muss ich den Code schreiben? Bitte um Hilfe!!
Besten Dank schon mal.
Grüße Hugo
hugo64874 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2018, 16:22   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.

Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem aussagekräftigen Dateinamen hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms).

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2018, 17:41   #3
hugo64874
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard VBA-Sprünge jetzt mit Datei

Hallo zusammen,

hier jetzt mal meine Probedatei.

Es wäre wirklich schön wenn jemand die Lösung (vielleicht auch mit Erklärungen)
finden würde.

Dank schon mal.

Beste Grüße
Hugo
Angehängte Dateien
Dateityp: zip Vergleich.zip (114,1 KB, 0x aufgerufen)

Geändert von hugo64874 (17.10.2018 um 17:47 Uhr).
hugo64874 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2018, 17:45   #4
Hajo_Zi
MOF Guru
MOF Guru
Standard

ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.
Das wird schon seinen Grund haben.

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2018, 17:50   #5
hugo64874
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Hajo,

tschuldigung, tut mir leid. Ich hatte zwar Deinen Beitrag komplett gelesen, aber leider beim Zippen nicht auf den Namen geachtet, weil die Datei bei mir halt erstmal nur als Test bezeichnet wurde.
Es wäre also schön, wenn Du villeicht doch noch einen Blick drauf werfen könntest. Besten Dank.
Grüße Hugo
hugo64874 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:13 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.