Thema Datum  Von Nutzer Rating
Antwort
12.11.2012 16:19:01 karl
NotSolved
Blau Alle Zellen in neues Tabellenblatt untereinander kopieren
 22.11.2012 13:25:09 Lutz
Solved

Ansicht des Beitrags:
Von:
Lutz		 Datum:
22.11.2012 13:25:09		 Views:
775		 Rating:
     
Antwort:
 Nein
Thema:
Alle Zellen in neues Tabellenblatt untereinander kopieren

Hallo Karl.

Ich hoffe dieser Code hilft Dir weiter:

Public Sub KopiereWorksheetsInSpalte()
    Dim zus As Worksheet
    Dim ws As Worksheet
    Dim adr As String
    Dim rg As Range
    Dim actCell As Range
    Dim cell As Range
    If ExistWorksheet("Zusammenfassung") Then
        Set zus = Worksheets("Zusammenfassung")
    Else
        zus = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        zus.Name = "Zusammenfassung"
    End If
    Set actCell = zus.Range("A1")
    adr = "A1:X70"
    For Each ws In Worksheets
        If ws.Name <> "Zusammenfassung" Then
            Set rg = ws.Range(adr)
            For Each cell In rg
                actCell.Value = cell.Value
                Set actCell = actCell.Offset(1, 0)
            Next
        End If
    Next ws
End Sub

Public Function ExistWorksheet(wsName As String) As Boolean
    Dim ws As Worksheet
    ExistWorksheet = False
    For Each ws In Worksheets
        If ws.Name = wsName Then
            ExistWorksheet = True
            Exit For
        End If
    Next ws
End Function

Grüße Lutz

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
12.11.2012 16:19:01 karl
NotSolved
Blau Alle Zellen in neues Tabellenblatt untereinander kopieren
 22.11.2012 13:25:09 Lutz
Solved