Thema Datum  Von Nutzer Rating
Antwort
18.01.2012 12:55:53 JOJO
NotSolved
Blau Werte aus 3 Tabellen in eine Tabelle zusammenführen
 27.01.2012 14:15:32 Sino
Solved

Ansicht des Beitrags:
Von:
Sino		 Datum:
27.01.2012 14:15:32		 Views:
835		 Rating:
     
Antwort:
 Nein
Thema:
Werte aus 3 Tabellen in eine Tabelle zusammenführen

 Hi,

meinst du etwa so:

 

    Dim daten1 As Worksheet, daten2 As Worksheet, daten3 As Worksheet, auswertung As Worksheet
    Dim y As Long, iCol As Integer
    Set daten1 = Worksheets("Tabelle1")
    Set daten2 = Worksheets("Tabelle2")
    Set daten3 = Worksheets("Tabelle3")
    Set auswertung = Worksheets("Ergebnis")
    iCol = Application.WorksheetFunction.Max(daten1.Cells(1, Columns.Count).End(xlToLeft).Column, daten2.Cells(1, Columns.Count).End(xlToLeft).Column, daten3.Cells(1, Columns.Count).End(xlToLeft).Column)
    For y = 1 To iCol
        If Application.WorksheetFunction.CountA(auswertung.Columns(1)) = 0 Then
            daten1.Columns(y).Copy auswertung.Columns(1)
        Else
            daten1.Columns(y).Copy auswertung.Columns(auswertung.Cells(1, Columns.Count).End(xlToLeft).Column + 1)
        End If
        daten2.Columns(y).Copy auswertung.Columns(auswertung.Cells(1, Columns.Count).End(xlToLeft).Column + 1)
        daten3.Columns(y).Copy auswertung.Columns(auswertung.Cells(1, Columns.Count).End(xlToLeft).Column + 1)
    Next y
End Sub

 

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:



  • 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
18.01.2012 12:55:53 JOJO
NotSolved
Blau Werte aus 3 Tabellen in eine Tabelle zusammenführen
 27.01.2012 14:15:32 Sino
Solved