Thema Datum  Von Nutzer Rating
Antwort
02.02.2012 10:57:22 Ömer
NotSolved
Blau ganzen Sheet in ein anderes Sheet kopieren
 02.02.2012 11:14:47 Sino
*****
Solved
02.02.2012 11:39:16 Ömer
NotSolved

Ansicht des Beitrags:
Von:
Sino		 Datum:
02.02.2012 11:14:47		 Views:
805		 Rating:
     
Antwort:
 Nein
Thema:
ganzen Sheet in ein anderes Sheet kopieren

 Hi Ömer,

folgendes Makro kopiert den gesamten Inhalt von Tabelle1 in Tabelle2.

 

Option Explicit


Sub kopieren()

   Dim ws1 As Worksheet, ws2 As Worksheet
   Dim x As Long, y As Long, lngZeilen As Long
   
   'Zuweisung der Tabellen zu den Variablen
   Set ws1= Worksheets("Tabelle1") 'Tabellennamen ggfs. Anpassen
   Set ws2 = Worksheets("Tabelle2") 'Tabellennamen ggfs. Anpassen

   lngZeilen = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
  
   x = 1
   
   For y = 1 To lngZeilen
         ws1.Rows(y).Copy ws2.Rows(x)
         x = x + 1
                                 
   Next y
    
End Sub

LG 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
02.02.2012 10:57:22 Ömer
NotSolved
Blau ganzen Sheet in ein anderes Sheet kopieren
 02.02.2012 11:14:47 Sino
*****
Solved
02.02.2012 11:39:16 Ömer
NotSolved