aivilon
25.05.2016
view1772
view9
0
Goto Top

Sheet in hinter letzten, verwenderten Spalte einfügen

gelöstFrageVB for ApplicationsEntwicklung
Moin Zusammen

Ausgangslage:
Ich habe zwei Sheets. Sheet "SCData" ist Variabel in der Grösse. Darin befindet sich eine Pivot,
die je nach Daten Import mehr Spalten und mehr Zeilen hat. Im Sheet "Hardware" habe ich eine
Fixe Anzahl von Spalten und 2500 Zeilen. Jede Zelle enthält eine Formel.

Ziel:
Ich möchte aus beiden Sheets ein einziges machen. Als erstes soll das Sheet SCData in das
neue kopiert werden. Hier wäre es vorteilhaft, wenn nur der Range bis zur letzten Befüllten Zelle
nach rechts unten kopiert wird (eingefügt werden sollen lediglich die Werte, da im Sheet eine
Pivot Tabelle ist und diese für weitere Bearbeitungen störend ist). Nach dieser wird das Sheet
Hardware eingefügt. Das Zielsheet heisst im übrigen "Finished_Data".

Hinzu kommt, dass im selben Skript die Spalte A im Zielsheet Finished_Data bearbeitet werden
muss. Und zwar habe ich durch die Pivot Tabelle teilweise leere Felder. Dies überall dort, wo der
Schlüssel der Pivot Tabelle zweimal verwendet wurde. Das heisst, es muss bei jeder leeren Zelle
in Spalte A den Wert der oberen Zelle herunter kopieren.

Bereits bestehend:
Sub alleszusammenkopieren()
'  
'In diesem Sub ist das, was ich mit der Makroaufzeichnung erreichen konnte.   
'Im Code fehlend ist das Ausfüllen der leeren Zellen in Spalte A  
'  
    Columns("A:ZZ").Select						'ich habe mit der Makro Aufzeichnung nicht die Möglichkeit, Variabel zu wählen, deshalb habe ich bis Column ZZ gewählt  
											'hier sollte wie beschrieben, bestenfalls der Range bis zur letzten, wirklich verwendeten Spalte gesetzt werden.  
    Selection.Copy
    ActiveWindow.ScrollColumn = 693
    ActiveWindow.ScrollColumn = 691
    ActiveWindow.ScrollColumn = 685
    ActiveWindow.ScrollColumn = 678
    ActiveWindow.ScrollColumn = 672
    ActiveWindow.ScrollColumn = 664
    ActiveWindow.ScrollColumn = 653
    ActiveWindow.ScrollColumn = 643
    ActiveWindow.ScrollColumn = 635
    ActiveWindow.ScrollColumn = 627
    ActiveWindow.ScrollColumn = 622
    ActiveWindow.ScrollColumn = 616
    ActiveWindow.ScrollColumn = 610
    ActiveWindow.ScrollColumn = 603
    ActiveWindow.ScrollColumn = 595
    ActiveWindow.ScrollColumn = 582
    ActiveWindow.ScrollColumn = 571
    ActiveWindow.ScrollColumn = 556
    ActiveWindow.ScrollColumn = 543
    ActiveWindow.ScrollColumn = 527
    ActiveWindow.ScrollColumn = 512
    ActiveWindow.ScrollColumn = 498
    ActiveWindow.ScrollColumn = 487
    ActiveWindow.ScrollColumn = 474
    ActiveWindow.ScrollColumn = 466
    ActiveWindow.ScrollColumn = 457
    ActiveWindow.ScrollColumn = 451
    ActiveWindow.ScrollColumn = 443
    ActiveWindow.ScrollColumn = 435
    ActiveWindow.ScrollColumn = 426
    ActiveWindow.ScrollColumn = 414
    ActiveWindow.ScrollColumn = 403
    ActiveWindow.ScrollColumn = 388
    ActiveWindow.ScrollColumn = 375
    ActiveWindow.ScrollColumn = 363
    ActiveWindow.ScrollColumn = 351
    ActiveWindow.ScrollColumn = 339
    ActiveWindow.ScrollColumn = 326
    ActiveWindow.ScrollColumn = 315
    ActiveWindow.ScrollColumn = 301
    ActiveWindow.ScrollColumn = 288
    ActiveWindow.ScrollColumn = 276
    ActiveWindow.ScrollColumn = 264
    ActiveWindow.ScrollColumn = 252
    ActiveWindow.ScrollColumn = 244
    ActiveWindow.ScrollColumn = 236
    ActiveWindow.ScrollColumn = 231
    ActiveWindow.ScrollColumn = 225
    ActiveWindow.ScrollColumn = 220
    ActiveWindow.ScrollColumn = 216
    ActiveWindow.ScrollColumn = 212
    ActiveWindow.ScrollColumn = 208
    ActiveWindow.ScrollColumn = 205
    ActiveWindow.ScrollColumn = 202
    ActiveWindow.ScrollColumn = 198
    ActiveWindow.ScrollColumn = 195
    ActiveWindow.ScrollColumn = 193
    ActiveWindow.ScrollColumn = 191
    ActiveWindow.ScrollColumn = 187
    ActiveWindow.ScrollColumn = 184
    ActiveWindow.ScrollColumn = 180
    ActiveWindow.ScrollColumn = 176
    ActiveWindow.ScrollColumn = 171
    ActiveWindow.ScrollColumn = 163
    ActiveWindow.ScrollColumn = 156
    ActiveWindow.ScrollColumn = 149
    ActiveWindow.ScrollColumn = 141
    ActiveWindow.ScrollColumn = 130
    ActiveWindow.ScrollColumn = 124
    ActiveWindow.ScrollColumn = 117
    ActiveWindow.ScrollColumn = 112
    ActiveWindow.ScrollColumn = 106
    ActiveWindow.ScrollColumn = 100
    ActiveWindow.ScrollColumn = 95
    ActiveWindow.ScrollColumn = 91
    ActiveWindow.ScrollColumn = 87
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 80
    ActiveWindow.ScrollColumn = 78
    ActiveWindow.ScrollColumn = 75
    ActiveWindow.ScrollColumn = 71
    ActiveWindow.ScrollColumn = 67
    ActiveWindow.ScrollColumn = 63
    ActiveWindow.ScrollColumn = 60
    ActiveWindow.ScrollColumn = 57
    ActiveWindow.ScrollColumn = 54
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A4").Select  
    Sheets("Finished_Data").Select  
    ActiveSheet.Buttons.Add(150, 19.5, 409.5, 144).Select
    Range("A1").Select  
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll ToRight:=58
    Range("BS3").Select  
    Sheets("Hardware").Select  
    Columns("A:FW").Select						'Dieser Bereich ist Fix. Lediglich die Anzahl Zeilen ist variabel.  
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Finished_Data").Select  
    Range("BS1").Select							'Hier müsste nun wiederum erste Zelle der ersten wirklich freien Spalte gewählt werden.  
    ActiveSheet.Paste
    ActiveWindow.ScrollColumn = 60
    ActiveWindow.ScrollColumn = 62
    ActiveWindow.ScrollColumn = 64
    ActiveWindow.ScrollColumn = 65
    ActiveWindow.ScrollColumn = 68
    ActiveWindow.ScrollColumn = 70
    ActiveWindow.ScrollColumn = 72
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 75
    ActiveWindow.ScrollColumn = 77
    ActiveWindow.ScrollColumn = 79
    ActiveWindow.ScrollColumn = 80
    ActiveWindow.ScrollColumn = 81
    ActiveWindow.ScrollColumn = 83
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 85
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 87
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 89
    ActiveWindow.ScrollColumn = 90
    ActiveWindow.ScrollColumn = 91
    ActiveWindow.ScrollColumn = 92
    ActiveWindow.ScrollColumn = 93
    ActiveWindow.ScrollColumn = 95
    ActiveWindow.ScrollColumn = 96
    ActiveWindow.ScrollColumn = 97
    ActiveWindow.ScrollColumn = 98
    ActiveWindow.ScrollColumn = 99
    ActiveWindow.ScrollColumn = 101
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 104
    ActiveWindow.ScrollColumn = 106
    ActiveWindow.ScrollColumn = 108
    ActiveWindow.ScrollColumn = 111
    ActiveWindow.ScrollColumn = 113
    ActiveWindow.ScrollColumn = 115
    ActiveWindow.ScrollColumn = 117
    ActiveWindow.ScrollColumn = 119
    ActiveWindow.ScrollColumn = 121
    ActiveWindow.ScrollColumn = 123
    ActiveWindow.ScrollColumn = 125
    ActiveWindow.ScrollColumn = 126
    ActiveWindow.ScrollColumn = 128
    ActiveWindow.ScrollColumn = 130
    ActiveWindow.ScrollColumn = 131
    ActiveWindow.ScrollColumn = 133
    ActiveWindow.ScrollColumn = 134
    ActiveWindow.ScrollColumn = 135
    ActiveWindow.ScrollColumn = 136
    ActiveWindow.ScrollColumn = 137
    ActiveWindow.ScrollColumn = 138
    ActiveWindow.ScrollColumn = 139
    ActiveWindow.ScrollColumn = 140
    ActiveWindow.ScrollColumn = 141
    ActiveWindow.ScrollColumn = 144
    ActiveWindow.ScrollColumn = 145
    ActiveWindow.ScrollColumn = 152
    ActiveWindow.ScrollColumn = 156
    ActiveWindow.ScrollColumn = 159
    ActiveWindow.ScrollColumn = 160
    ActiveWindow.ScrollColumn = 161
    ActiveWindow.ScrollColumn = 162
    ActiveWindow.ScrollColumn = 163
    ActiveWindow.ScrollColumn = 164
    ActiveWindow.ScrollColumn = 165
    ActiveWindow.ScrollColumn = 166
    ActiveWindow.ScrollColumn = 167
    ActiveWindow.ScrollColumn = 168
    ActiveWindow.ScrollColumn = 169
    ActiveWindow.ScrollColumn = 170
    ActiveWindow.ScrollColumn = 171
    ActiveWindow.ScrollColumn = 172
    ActiveWindow.ScrollColumn = 173
    ActiveWindow.ScrollColumn = 174
    ActiveWindow.ScrollColumn = 175
    ActiveWindow.ScrollColumn = 176
    ActiveWindow.ScrollColumn = 177
    ActiveWindow.ScrollColumn = 180
    ActiveWindow.ScrollColumn = 182
    ActiveWindow.ScrollColumn = 185
    ActiveWindow.ScrollColumn = 187
    ActiveWindow.ScrollColumn = 190
    ActiveWindow.ScrollColumn = 192
    ActiveWindow.ScrollColumn = 194
    ActiveWindow.ScrollColumn = 195
    ActiveWindow.ScrollColumn = 196
    ActiveWindow.ScrollColumn = 197
    ActiveWindow.ScrollColumn = 198
    ActiveWindow.ScrollColumn = 199
    ActiveWindow.ScrollColumn = 200
    ActiveWindow.ScrollColumn = 201
    ActiveWindow.ScrollColumn = 202
    ActiveWindow.ScrollColumn = 203
    ActiveWindow.ScrollColumn = 205
    ActiveWindow.ScrollColumn = 207
    ActiveWindow.ScrollColumn = 209
    ActiveWindow.ScrollColumn = 210
    ActiveWindow.ScrollColumn = 213
    ActiveWindow.ScrollColumn = 216
    ActiveWindow.ScrollColumn = 219
    ActiveWindow.ScrollColumn = 222
    ActiveWindow.ScrollColumn = 225
    ActiveWindow.ScrollColumn = 228
    ActiveWindow.ScrollColumn = 232
    ActiveWindow.ScrollColumn = 233
    ActiveWindow.ScrollColumn = 235
    ActiveWindow.ScrollColumn = 237
    ActiveWindow.ScrollColumn = 238
    ActiveWindow.ScrollColumn = 239
    ActiveWindow.ScrollColumn = 240
    ActiveWindow.ScrollColumn = 242
    ActiveWindow.ScrollColumn = 244
    ActiveWindow.ScrollColumn = 245
    ActiveWindow.ScrollColumn = 246
    ActiveWindow.ScrollColumn = 247
    ActiveWindow.ScrollColumn = 248
    ActiveWindow.ScrollColumn = 247
    ActiveWindow.ScrollColumn = 246
    ActiveWindow.ScrollColumn = 245
    ActiveWindow.ScrollColumn = 244
    ActiveWindow.ScrollColumn = 243
    ActiveWindow.ScrollColumn = 242
    ActiveWindow.ScrollColumn = 241
    ActiveWindow.ScrollColumn = 240
    ActiveWindow.ScrollColumn = 239
    ActiveWindow.ScrollColumn = 238
    ActiveWindow.ScrollColumn = 237
    ActiveWindow.ScrollColumn = 236
    ActiveWindow.ScrollColumn = 235
    ActiveWindow.ScrollColumn = 234
    ActiveWindow.ScrollColumn = 233
    ActiveWindow.ScrollColumn = 232
    ActiveWindow.ScrollColumn = 231
    ActiveWindow.ScrollColumn = 229
    ActiveWindow.ScrollColumn = 228
    ActiveWindow.ScrollColumn = 227
    ActiveWindow.ScrollColumn = 226
    ActiveWindow.ScrollColumn = 225
    Range("AL3:IO3").Select  
    Range("IO3").Activate  
    Application.CutCopyMode = False
    With Selection
        .VerticalAlignment = xlBottom
        .Orientation = 90
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A3:IO3").Select  
    Range("IO3").Activate  
    Selection.Font.Bold = False
    Selection.Font.Bold = True
    ActiveWindow.ScrollColumn = 226
    ActiveWindow.ScrollColumn = 224
    ActiveWindow.ScrollColumn = 223
    ActiveWindow.ScrollColumn = 221
    ActiveWindow.ScrollColumn = 220
    ActiveWindow.ScrollColumn = 218
    ActiveWindow.ScrollColumn = 216
    ActiveWindow.ScrollColumn = 212
    ActiveWindow.ScrollColumn = 208
    ActiveWindow.ScrollColumn = 203
    ActiveWindow.ScrollColumn = 198
    ActiveWindow.ScrollColumn = 193
    ActiveWindow.ScrollColumn = 187
    ActiveWindow.ScrollColumn = 183
    ActiveWindow.ScrollColumn = 179
    ActiveWindow.ScrollColumn = 176
    ActiveWindow.ScrollColumn = 173
    ActiveWindow.ScrollColumn = 171
    ActiveWindow.ScrollColumn = 168
    ActiveWindow.ScrollColumn = 165
    ActiveWindow.ScrollColumn = 163
    ActiveWindow.ScrollColumn = 160
    ActiveWindow.ScrollColumn = 157
    ActiveWindow.ScrollColumn = 154
    ActiveWindow.ScrollColumn = 151
    ActiveWindow.ScrollColumn = 149
    ActiveWindow.ScrollColumn = 147
    ActiveWindow.ScrollColumn = 145
    ActiveWindow.ScrollColumn = 144
    ActiveWindow.ScrollColumn = 142
    ActiveWindow.ScrollColumn = 140
    ActiveWindow.ScrollColumn = 139
    ActiveWindow.ScrollColumn = 136
    ActiveWindow.ScrollColumn = 134
    ActiveWindow.ScrollColumn = 131
    ActiveWindow.ScrollColumn = 128
    ActiveWindow.ScrollColumn = 124
    ActiveWindow.ScrollColumn = 120
    ActiveWindow.ScrollColumn = 116
    ActiveWindow.ScrollColumn = 113
    ActiveWindow.ScrollColumn = 109
    ActiveWindow.ScrollColumn = 106
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 97
    ActiveWindow.ScrollColumn = 93
    ActiveWindow.ScrollColumn = 90
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 82
    ActiveWindow.ScrollColumn = 78
    ActiveWindow.ScrollColumn = 75
    ActiveWindow.ScrollColumn = 71
    ActiveWindow.ScrollColumn = 66
    ActiveWindow.ScrollColumn = 61
    ActiveWindow.ScrollColumn = 57
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 1
    Rows("2:2").Select  
    Selection.Font.Size = 11
    Selection.Font.Bold = True
    Rows("1:1").Select  
    Selection.Font.Size = 11
    Selection.Font.Size = 12
    Selection.Font.Bold = True
    Range("A4").Select  
End Sub

Was muss wo und wie angepasst werden, damit der Skriptaufruf die gewünschten Aktionen durchführt?


Danke im Voraus und Grüsse,
Aivilon
ShareTeilen
Auf Facebook teilen Auf Twitter teilen Auf Reddit teilen Auf Linkedin teilen

Content-ID: 305318

Url: https://administrator.de/contentid/305318

Ausgedruckt am: 18.11.2024 um 01:11 Uhr

9 Kommentare
Neuester Kommentar
Goto Top
129413
Lösung 129413 25.05.2016 aktualisiert um 17:37:55 Uhr
Goto Top
Sub MergeSheets()
    With Sheets("Finished_Data")  
        Sheets("SCData").UsedRange.Copy  
        .Range("A1").PasteSpecial xlPasteValuesAndNumberFormats  
        Sheets("Hardware").UsedRange.Copy  
        .Cells(1, .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1).PasteSpecial xlPasteValuesAndNumberFormats
    End With
End Sub
Hinzu kommt, dass im selben Skript die Spalte A im Zielsheet Finished_Data bearbeitet werden muss. > Und zwar habe ich durch die Pivot Tabelle teilweise leere Felder.
Das muss man nicht machen, dafür gibt in der Pivot-Tabelle extra eine Option: Rechtsklick auf die Spalte -> Feldeinstellungen -> Elementnamen wiederholen

screenshot

Gruß skybird
aivilon
aivilon 26.05.2016 aktualisiert um 10:18:55 Uhr
Goto Top
Moin Skybird

Vielen Dank! geht.

Auf das mit der Wiederholung hätte ich auch selber kommen müssen *peinlich*


noch eine kleine Folge Frage. Ich möchte nun im Finished_Data dem UsedRange einen Tabellennamen geben, aber erst ab Zeile 3:

ActiveSheet.UsedRange.Rows.Count(-3).Name = _
        "Finished_Data"

Das ergibt Laufzeitfehler 451, Let Prozedur der Eigenschaft ist nicht definiert.


Grüsse, Aiv
129413
129413 26.05.2016 aktualisiert um 10:42:01 Uhr
Goto Top
Zitat von @aivilon:
ActiveSheet.UsedRange.Rows.Count(-3).Name = _
>         "Finished_Data"

Das ergibt Laufzeitfehler 451, Let Prozedur der Eigenschaft ist nicht definiert.
Das kann ja so auch nicht weil ein Integer hat keine Eigenschaft "Name" das hat nur das Range-Objekt. Und Count ist keine Funktion sondern eine Eigenschaft!
With Sheets("Finished_Data")  
    .UsedRange.Resize(.UsedRange.Rows.Count -3, .UsedRange.Columns.count).Name = "FinishedData"  
End with
aivilon
aivilon 26.05.2016 um 10:35:39 Uhr
Goto Top
Mann ist das kompliziert face-sad muss mich mehr mit programmieren beschäftigen.

Klappt aber irgendwie ned. Es benennt mir dennoch den kompletten usedrange als "Finished_Data"
129413
129413 26.05.2016 aktualisiert um 10:45:33 Uhr
Goto Top
Du solltest den Bereich ja auch nicht so benennen wie das Sheet selber face-smile
Und wenn der Name schon existiert sollte man ihn vorher löschen.

Geht hier problemlos.
aivilon
aivilon 26.05.2016 aktualisiert um 10:58:33 Uhr
Goto Top
Hab ihn sogar noch in Finished_Data_Tabelle umbenannt. Es ist dann der komplette UsedRange face-confused

usedrange

Eigentlich sollte erst ab der dritten Zeile markiert sein. Sodass
With Sheets("Finished_Data")  
    .UsedRange.Resize(.UsedRange.Rows.Count - 3, .UsedRange.Columns.Count).Name = "SCData"  
End With

    ActiveSheet.ListObjects("SCData").TableStyle = "TableStyleMedium15"  
    ActiveWindow.SmallScroll Down:=-21
    Range("A4").Select

Danach den Bereich in eine Tabelle umwandeln kann
129413
Lösung 129413 26.05.2016 aktualisiert um 11:03:49 Uhr
Goto Top
Ja, das hast du ja nicht erwähnt das die Zeilen von "Oben" abgezogen werden sollen. Bei meinem Beispiel werden sie von "unten" abgezogen!

Wenn von oben:
With Sheets("Finished_Data")  
    .UsedRange.Resize(.UsedRange.Rows.Count -3, .UsedRange.Columns.count).Offset(3,0).Name = "FinishedData"  
End with
aivilon
aivilon 26.05.2016 aktualisiert um 11:03:12 Uhr
Goto Top
"Ab Zeile 3" :P. War wohl zu langsam mit der Korrektur face-sad Sorry

So jetzt klappt das auch! :D

With Sheets("Finished_Data")  
    .UsedRange.Resize(.UsedRange.Rows.Count - 3, .UsedRange.Columns.Count).Offset(2, 0).Name = "SCData"  
End With

    Application.Goto Reference:="SCData"  
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$3:$IO$3527"), , xlYes).Name _  
        = "Tabelle3"  
    Range("Tabelle3[#All]").Select  
    ActiveSheet.ListObjects("Tabelle3").TableStyle = "TableStyleMedium15"
129413
129413 26.05.2016 aktualisiert um 11:06:44 Uhr
Goto Top
Zitat von @aivilon:
"Ab Zeile 3" :P. War wohl zu langsam mit der Korrektur face-sad Sorry
Jo, das hatte ich zu dem Zeitpunkt nicht gesehen..

Na dann ist das ja geklärt face-smile

Dann vielleicht noch paar Seiten für deine nächsten VBA Ausflüge face-wink

Gruß und schönen Tag
skybird
gelöstFrageVB for ApplicationsEntwicklung
Mehr von aivilonaivilonAccess Tabellenblätter zusammenführen, inkl. Abhängigkeitenaivilon - 9 KommentareaivilonSuche mittels Eintrag in Listbox und einer gewählten Checkboxaivilon - 2 KommentareaivilonMehrzeilige Datenquelle in eine Zeile Zusammenfassenaivilon - 7 KommentareaivilonVBA Modul ruft Public Sub in Userform aufaivilon - 15 Kommentare
Heiß diskutiert
Roland567VMware - Broadcom und neue PreiseRoland567 - 44 KommentareFohnbitNetzwerkgerät im Netzwerk verschwindet nach NeustartFohnbit - 34 Kommentareseppo1Switche KMUseppo1 - 28 KommentarecseLaufwege erfassen in großer Hallecse - 20 KommentaredenfinHeimnetzwerk Probleme und Fragen (VPN, IPv6, Telekom Speed Port)denfin - 18 Kommentaresuperfun2k24SSL VPN an Sophos UTM sehr langsamsuperfun2k24 - 16 KommentareBlackmannZwang zur TelefonnummernbereitstellungBlackmann - 16 KommentareFrontierAbsicherung eines privaten GastnetzesFrontier - 14 KommentareadmtechEntwicklertagebuch: Release 6.4 - Filteradmtech - 13 KommentareaufdemmarsHP Z620 USB hat kein Strom beim Startenaufdemmars - 12 KommentareDSchmolkePasswort ändern in der Domäne geht nichtDSchmolke - 12 KommentarelucarusAdminrechte eines Servers auf VM in Domänelucarus - 12 Kommentare