Thema Datum  Von Nutzer Rating
Antwort
07.11.2018 10:41:07 Sabi
NotSolved
Blau Tabellenname und Text kopieren
 07.11.2018 11:48:29 Gast63361
*****
Solved
07.11.2018 13:56:52 Sabi
NotSolved
07.11.2018 11:57:25 codo
NotSolved

Ansicht des Beitrags:
Von:
Gast63361		 Datum:
07.11.2018 11:48:29		 Views:
514		 Rating:
     
Antwort:
 Nein
Thema:
Tabellenname und Text kopieren		 
Sub CollectIt()
Dim oWsTo As Excel.Worksheet, WsCnt As Long, rngLst As Range, rngTo As Range

   'aktuell in der Mappe
   WsCnt = Sheets.Count
   'neues Arbeitsblatt
   Set oWsTo = Sheets.Add(After:=Sheets(WsCnt))
   For WsCnt = 1 To WsCnt
      With oWsTo
         'Ziel
         With .UsedRange
            Set rngTo = .Cells(.Cells.Count)
         End With
         Set rngTo = .Cells(rngTo.Row, 1).Offset(2)
         'Quelle
         With Sheets(WsCnt)
            rngTo.Value = .Name
            'wie abgebildet
            With .UsedRange
               Set rngLst = .Cells(.Cells.Count)
            End With
            'echte Kopie
            '.Range(.Cells(1), rngLst).Copy rngTo.Offset(1)
            'nur Werte
            .Range(.Cells(1), rngLst).Copy
            rngTo.Offset(1).PasteSpecial _
               Paste:=xlPasteValues, Operation:=xlNone
         End With
      End With
   Next WsCnt
   
   oWsTo.Range(Rows(1), Rows(2)).Delete
   
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
07.11.2018 10:41:07 Sabi
NotSolved
Blau Tabellenname und Text kopieren
 07.11.2018 11:48:29 Gast63361
*****
Solved
07.11.2018 13:56:52 Sabi
NotSolved
07.11.2018 11:57:25 codo
NotSolved