Thema Datum  Von Nutzer Rating
Antwort
06.02.2012 15:53:39 VBA Cruiser
NotSolved
Blau Kopieren von variablen Tabellen in ein neues Worksheet
 07.02.2012 13:28:17 Sino
*****
Solved
22.02.2012 14:29:07 Gast35780
NotSolved

Ansicht des Beitrags:
Von:
Sino		 Datum:
07.02.2012 13:28:17		 Views:
886		 Rating:
     
Antwort:
 Nein
Thema:
Kopieren von variablen Tabellen in ein neues Worksheet

Hi,

folgendes Makro kopiert den Inhalt aus den 3 Worksheets in Tabelle Export:

 

Sub transfer ()   

Dim daten1 As Worksheet, daten2 As Worksheet, daten3 As Worksheet, auswertung As Worksheet
    Dim y As Long, iCol As Integer
    Set daten1 = Worksheets("Januar")
    Set daten2 = Worksheets("Februar")
    Set daten3 = Worksheets("März")
    Set auswertung = Worksheets("Export")
    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

 

Gruß Sino

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
06.02.2012 15:53:39 VBA Cruiser
NotSolved
Blau Kopieren von variablen Tabellen in ein neues Worksheet
 07.02.2012 13:28:17 Sino
*****
Solved
22.02.2012 14:29:07 Gast35780
NotSolved