Thema Datum  Von Nutzer Rating
Antwort
26.01.2011 12:05:40 Zoba
NotSolved
26.01.2011 13:01:15 Severus
NotSolved
26.01.2011 15:53:55 Zoba
NotSolved
Blau Zelleninhalte in neue Tabelle kopieren und verändern
26.01.2011 18:56:23 Severus
*****
Solved
26.01.2011 19:27:53 Severus
*****
Solved
27.01.2011 09:41:28 Gast29534
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
26.01.2011 18:56:23		 Views:
1088		 Rating:
     
Antwort:
 Nein
Thema:
Zelleninhalte in neue Tabelle kopieren und verändern

Etwa so:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Inhalt_kopieren()
Dim srcZeile As Long
Dim trgZeile As Long
Dim trgWS As Excel.Worksheet
Dim srcLetzteZeile As Long
 
'WICHTIG: Ich lasse die Kopie jeweils in Zeile 2 starten, da ich die Spaltenüberschriften nicht alle kenne
'und somit auch nicht kopieren oder erstellen kann. Das mußt Du selber einfügen
 
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Tabelle1").Activate
 
Set trgWS = ActiveSheet.Copy(After:=Sheets(Worksheets.Count)): DoEvents
trgWS.Name = "Tabelle" & Worksheets.Count
 
With trgWS
'Spaltenüberschriften erstellen
'    .Cells(1, 1) = "abc"
'    .Cells(1, 2) = "def"
'   ..........
End With
 
trgZeile = 2
With ThisWorkbook.Sheets("Tabelle1")
    srcLetzteZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
    For srcZeile = 2 To srcLetzteZeile
        trgWS.Cells(trgZeile, 3) = .Cells(srcZeile, 1)
        trgWS.Cells(trgZeile, 14) = .Cells(srcZeile, 2)
        trgWS.Cells(trgZeile, 6) = .Cells(srcZeile, 3)
        trgWS.Cells(trgZeile, 8) = .Cells(srcZeile, 4)
        trgWS.Cells(trgZeile, 7) = .Cells(srcZeile, 5)
        trgWS.Cells(trgZeile, 25) = .Cells(srcZeile, 6)
        trgWS.Cells(trgZeile, 26) = .Cells(srcZeile, 7)
        trgWS.Cells(trgZeile, 29) = .Cells(srcZeile, 8)
        trgWS.Cells(trgZeile, 24) = .Cells(srcZeile, 9)
        trgWS.Cells(trgZeile, 1) = .Cells(srcZeile, 10)
        trgWS.Cells(trgZeile, 2) = .Cells(srcZeile, 10)
        trgWS.Cells(trgZeile, 17) = .Cells(srcZeile, 11)
        trgWS.Cells(trgZeile, 18) = .Cells(srcZeile, 12)
        trgWS.Cells(trgZeile, 4) = .Cells(srcZeile, 13)
        trgZeile = trgZeile + 1
    Next srcZeile
      
End With
Set trgWS = Nothing
Application.ScreenUpdating = True
      
End Sub

Hoffe ich habe Dich richtig verstanden!

Severus

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
26.01.2011 12:05:40 Zoba
NotSolved
26.01.2011 13:01:15 Severus
NotSolved
26.01.2011 15:53:55 Zoba
NotSolved
Blau Zelleninhalte in neue Tabelle kopieren und verändern
26.01.2011 18:56:23 Severus
*****
Solved
26.01.2011 19:27:53 Severus
*****
Solved
27.01.2011 09:41:28 Gast29534
NotSolved