Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle durch Daten einer 2ten aktualisieren

Tabelle durch Daten einer 2ten aktualisieren
18.01.2009 10:26:00
Reini
Hallo liebe Forumsgemeinde,
ich habe ein kleines Problem.
Ich habe 2 Tabellen die gleich aufgebaut sind.
Tabelle 1 :
2 Spalten. In Spalte A eine Zahl, in Spalte B irgendein text.
Tabelle 2:
gleicher Aufbau.
Nun sollte ein Makro überprüfen welche Zahlen aus Tabelle 1 noch nicht in Tabelle 2 vorhanden sind und diese dann in Tabelle 2 samt dem Text aus Spalte B einfügen. Das heisst die Tabelle 2 sollte immer durch neue einträge aus Tabelle 1 erweitert werden.
Wäre super wenn mir dabei jemand helfen könnte.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle durch Daten einer 2ten aktualisieren
18.01.2009 10:55:00
Tino
Hallo,
ist die letzte Spalte bei Dir noch frei, kannst Du es mal mit diesem Makro versuchen.
Sub Makro1()
Dim Bereich As Range

With Application
 .ScreenUpdating = False
 .EnableEvents = False
    
    With Sheets("Tabelle1")
        Set Bereich = .Range("A2", .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 1))
        Set Bereich = Bereich.Offset(0, .Columns.Count - 1)
        
        Bereich.FormulaR1C1 = "=IF(COUNTIF(Tabelle2!C1,RC1)=0,0,"""")"
        
        On Error GoTo KeineZelle:
        Set Bereich = .Columns(.Columns.Count).SpecialCells(xlCellTypeFormulas, 1)
        Set Bereich = Range(Bereich.Offset(0, -(Columns.Count - 1)), Bereich.Offset(0, -(Columns.Count - 2)))
        
        With Sheets("Tabelle2")
         Bereich.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
        End With 'Sheets("Tabelle2") 
        
KeineZelle:
        .Columns(.Columns.Count).Delete
    End With 'Sheets("Tabelle1") 
 
 .ScreenUpdating = True
 .EnableEvents = True
End With 'Application 


End Sub


Gruß Tino

Anzeige
Korrektur, Excel macht da nicht mit...
18.01.2009 13:42:00
Tino
Hallo,
leider verbindet Excel die Zellen beim Offset gehen, nimm besser diese Version.
Sub Makro1()
Dim Bereich As Range
Dim Zellen As Range
Dim myTab1 As Worksheet, myTab2 As Worksheet
With Application
 .ScreenUpdating = False
 .EnableEvents = False
 

Set myTab1 = Sheets("Tabelle1") 'Deine Tabelle1 
Set myTab2 = Sheets("Tabelle2") 'Deine Tabelle2 
    
    With myTab1
        Set Bereich = .Range("A2", .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 1))
        Set Bereich = Bereich.Offset(0, .Columns.Count - 1)
        
        Bereich.FormulaR1C1 = "=IF(COUNTIF(Tabelle2!C1,RC1)=0,0,"""")"
        
        On Error GoTo KeineZelle:
        Set Bereich = .Columns(.Columns.Count).SpecialCells(xlCellTypeFormulas, 1)
        
        With myTab2
        For Each Zellen In Bereich
              
         myTab1.Range(myTab1.Cells(Zellen.Row, 1), myTab1.Cells(Zellen.Row, 2)).Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
        
        Next Zellen
        End With 'myTab2 
  
        
KeineZelle:
        .Columns(.Columns.Count).Delete
    End With 'myTab1 
 
 .ScreenUpdating = True
 .EnableEvents = True
End With 'Application 


End Sub


Gruß Tino

Anzeige
AW: Korrektur, Excel macht da nicht mit...
22.01.2009 13:58:47
reini
hallo, danke für die Hilfe, funktioniert perfekt. Nur noch eine kleine Frage, was müsste ich denn verändern wenn das Suchkriterium nicht in der ersten sondern zb in der 3ten Spalte wäre?
AW: Korrektur, Excel macht da nicht mit...
22.01.2009 14:24:00
Tino
Hallo,
ändere wie in der Grafik gezeigt in der Formelzeile die Werte entsprechend.
Userbild
Gruß Tino
AW: Korrektur, Excel macht da nicht mit...
23.01.2009 08:04:59
reini
danke für die schnelle antwort.
leider funktioniert es noch nicht richtig.
um es nochmals zu beschreiben, ich müsste also nicht die Spalte A von Tabelle 1 mit Spalte A von Tabelle 2 vergleichen, sondern die Spalte M von Tabelle 1 mit der Spalte M von Tabelle 2 und dann die einträge aus Tabelle 1 die noch nicht in Tabelle 2 sind in diese übernehmen.
Anzeige
AW: Korrektur, Excel macht da nicht mit...
23.01.2009 08:22:00
Tino
Hallo,
versuche es mal hiermit,
es wird die Spalte M von Tabelle1 mit der Spalte M der Tabelle2 verglichen und
die die nicht vorhanden sind nach Tabelle2 kopiert.
Sub Makro1()
Dim Bereich As Range
Dim LCol As Long, LColFomel As Long
With Application
 .ScreenUpdating = False
 .EnableEvents = False
    
    With Sheets("Tabelle1")
        
        Set Bereich = .Range("M2", .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 13))
        LColFomel = Bereich.Column
        LCol = .Columns.Count - Bereich.Column
        Set Bereich = Bereich.Offset(0, LCol)
        
        Bereich.FormulaR1C1 = "=IF(COUNTIF(Tabelle2!C" & LColFomel & ",RC" & LColFomel & ")=0,0,"""")"
        
        On Error GoTo KeineZelle:
        Set Bereich = .Columns(.Columns.Count).SpecialCells(xlCellTypeFormulas, 1)
        Set Bereich = Range(Bereich.Offset(0, -(LCol)), Bereich.Offset(0, -(LCol - 1)))
        
        With Sheets("Tabelle2")
         Bereich.Copy .Cells(.Rows.Count, LColFomel).End(xlUp).Offset(1, 0)
        End With 'Sheets("Tabelle2") 
        
KeineZelle:
        .Columns(.Columns.Count).Delete
    End With 'Sheets("Tabelle1") 
 
 .ScreenUpdating = True
 .EnableEvents = True
End With 'Application 


End Sub


Gruß Tino

Anzeige
AW: Korrektur
23.01.2009 08:52:00
Tino
Hallo,
habe ausversehen den ersten Code genommen, ich gehe nochmal ins Bett. ;-)
Sub Makro1()
Dim Bereich As Range, myZ As Range
Dim LCol As Long, LColFomel As Long
Dim myTab1 As Worksheet, myTab2 As Worksheet

With Application
 .ScreenUpdating = False
 .EnableEvents = False

Set myTab1 = Sheets("Tabelle1") 'Deine Tabelle1 
Set myTab2 = Sheets("Tabelle2") 'Deine Tabelle2 
    
    With myTab1
        
        Set Bereich = .Range("M2", .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 13))
        LColFomel = Bereich.Column
        LCol = .Columns.Count - Bereich.Column
        Set Bereich = Bereich.Offset(0, LCol)
        
        Bereich.FormulaR1C1 = "=IF(COUNTIF(" & myTab2.Name & "!C" & LColFomel & ",RC" & LColFomel & ")=0,0,"""")"
        
        On Error GoTo KeineZelle:
        Set Bereich = .Columns(.Columns.Count).SpecialCells(xlCellTypeFormulas, 1)
      
        With myTab2
         For Each myZ In Bereich
            myTab1.Range(myTab1.Cells(myZ.Row, LColFomel), myTab1.Cells(myZ.Row, LColFomel + 1)).Copy .Cells(.Rows.Count, LColFomel).End(xlUp).Offset(1, 0)
         Next myZ
        End With 'Sheets("Tabelle2") 
        
KeineZelle:
        .Columns(.Columns.Count).Delete
    End With 'Sheets("Tabelle1") 
 
 .ScreenUpdating = True
 .EnableEvents = True
End With 'Application 


End Sub


Gruß Tino

Anzeige
AW: Korrektur
26.01.2009 08:32:00
reini
Danke, hab aber leider noch ein problem. Er vergleicht jetzt zwar die richtigen Spalten. leider kopiert er aber nur die einträge der Spalte M und N in die 2te Tabelle. Er müsste allerdings die ganze zeile einfügen, von Spalte A bis S. Bekomm den Code leider nicht so hin dass es passt.
Reini

301 Forumthreads zu ähnlichen Themen

Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
Daten aus Pivot-Tabelle kopieren
Thomas

Guten Abend ,
wie kann ich per Schaltfläche einen Datenbereich aus einer Pivottabelle kopieren und in einem anderen Tabellenblatt einfügen?
Gruß
Thomas
03.10.2008 21:10:24
Thread-ID: 1014090
2 Beiträge
Funktion aktualisiert sich nicht automatisch
Bernd

Ich habe hier die folgende Funktion, welche mir eine Formel aus einer Zelle als Zahlen darstellt. Also aus =E20*E20 wird z.B. "5*5" ausgegeben.
Option Explicit Option Compare Text '(c)1999 Andreas Kirschbaum Const TrennZ = "-+/*^()" Const ZahlZ = "-.,0123456789" Const HochZ = "0123" Const...
22.10.2008 12:23:00
Thread-ID: 1018305
7 Beiträge
Anzeige
Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Pivot automatisch aktualisieren
Tina

Hallo,
ich möchte ein Pivot Table automatisch aktualisieren lassen. Das Table befindet sich allerdings auf dem gleichen Sheet wie die Daten und da komme ich nicht weiter.
Kann mir jemand einfach, aber effektiv helfen?
30.10.2008 10:47:38
Thread-ID: 1020519
3 Beiträge
Pivottabelle: Probleme bei Datenerweiterung
Antje

Hallo zusammen!
Mein Problem betrifft Pivottabellen. Ich bin, was das betrifft, leider nicht so fit.
Ich habe eine Grundtabelle mit ca. 21000 Quelldatensätzen, die in eine Pivottabelle mit 7 Auswahlkriterien zusammengefasst wird.
Aufgeschlüsselt ist das alles nach den 12 Monaten des...
19.01.2009 21:47:55
Thread-ID: 1041664
4 Beiträge
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
alle Pivottabellen in Datei aktualisieren
Julia

Hallo hab folgendes Makro
Sub Pivot() ' Pivot Makro ' Makro am 25.02.2009 von mir aufgezeichnet Sheets("Pivot1").Select Range("A8").Select ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh Sheets("Pivot2").Select Range("A7").Select ActiveSheet.PivotTables("PivotTable4").PivotCach...
26.02.2009 11:08:37
Thread-ID: 1054274
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
1
6
3
1
2
3
4
1
4
3
2
4
1
6
2
2
1
3
6
2
5
1
2