Thema Datum  Von Nutzer Rating
Antwort
29.11.2021 13:51:01 TB
NotSolved
Blau Daten kopieren und untereinander einfügen
 29.11.2021 15:15:38 Gast78269
NotSolved
30.11.2021 05:26:16 TB
NotSolved
30.11.2021 16:19:30 Gast19600
NotSolved
01.12.2021 11:39:09 TB
NotSolved
01.12.2021 13:17:38 Gast67499
NotSolved
01.12.2021 14:03:01 Gast95560
NotSolved
03.12.2021 13:41:38 Gast7150
NotSolved

Ansicht des Beitrags:
Von:
Gast78269		 Datum:
29.11.2021 15:15:38		 Views:
852		 Rating:
     
Antwort:
  Ja
Thema:
Daten kopieren und untereinander einfügen

Hallo,

probier mal:

Option Explicit

Public Sub notTested()
Dim wbkBook As Workbook
Dim wksSheet As Worksheet
For Each wbkBook In Workbooks
    For Each wksSheet In Worksheets
        With wksSheet
            Select Case .Name
               Case "Stanz", "Kusto", "Termo"
                    Call .Range(.Cells(3, .UsedRange.Column), Cells(.UsedRange.Row, .UsedRange.Column)).Copy(Destination:=Cells(ActiveSheet.UsedRange.Row + 1, 1))
            End Select
        End With
    Next
Next
End Sub

Gruß,

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
29.11.2021 13:51:01 TB
NotSolved
Blau Daten kopieren und untereinander einfügen
 29.11.2021 15:15:38 Gast78269
NotSolved
30.11.2021 05:26:16 TB
NotSolved
30.11.2021 16:19:30 Gast19600
NotSolved
01.12.2021 11:39:09 TB
NotSolved
01.12.2021 13:17:38 Gast67499
NotSolved
01.12.2021 14:03:01 Gast95560
NotSolved
03.12.2021 13:41:38 Gast7150
NotSolved