Thema Datum  Von Nutzer Rating
Antwort
25.11.2011 11:00:24 novus
Solved
25.11.2011 14:48:06 Ynachten
NotSolved
26.11.2011 12:05:17 novus
NotSolved
Blau  2 Tabellen vergleichen und Ergebnis in neue Tabelle
 28.11.2011 10:34:54 Ynachten
NotSolved

Ansicht des Beitrags:
Von:
Ynachten		 Datum:
28.11.2011 10:34:54		 Views:
1028		 Rating:
     
Antwort:
  Ja
Thema:
2 Tabellen vergleichen und Ergebnis in neue Tabelle

Hi Novus,

das klingt ein wenig so, als ob Du den Code selbst nicht wirklich verstehst. Dies wäre allerdings wichtig, hinterher macht das Makro lauter Unsinn und Du merkst es erst nach ein paar Wochen :D 

Hier ist auf jeden Fall der angepasste Code (er löscht anstatt auszuschneiden):

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub VergleichTabellen()
 
Zeile3 = 1
 
For Zeile1 = 1 To Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
 
    For Zeile2 = 1 To Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
 
        If Sheets("Tabelle1").Cells(Zeile1, 1) = Sheets("Tabelle2").Cells(Zeile2, 1) Then
 
            Sheets("Tabelle3").Cells(Zeile3, 1) = Sheets("Tabelle1").Cells(Zeile1, 1)
        Sheets("Tabelle1").Cells(Zeile1, 1).ClearContents
            Sheets("Tabelle3").Cells(Zeile3, 2) = Sheets("Tabelle1").Cells(Zeile1, 2)
        Sheets("Tabelle1").Cells(Zeile1, 2).ClearContents
            Sheets("Tabelle3").Cells(Zeile3, 3) = Sheets("Tabelle2").Cells(Zeile2, 2)
        Sheets("Tabelle2").Cells(Zeile2, 2).ClearContents
            Zeile3 = Zeile3 + 1
            Exit For
            
        End If
    
    Next Zeile2
 
Next Zeile1
 
End Sub
 
 
 
Hier wäre der Code, falls Du es doch ausschneiden und einfügen willst:
 
Cells(1, 1).Cut
ActiveSheet.Paste Destination:=Cells(1, 2)

 

lg Y

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.11.2011 11:00:24 novus
Solved
25.11.2011 14:48:06 Ynachten
NotSolved
26.11.2011 12:05:17 novus
NotSolved
Blau  2 Tabellen vergleichen und Ergebnis in neue Tabelle
 28.11.2011 10:34:54 Ynachten
NotSolved