@Lynndinn wg Megatabelle teilen

Computer: Software & Programmierung Office Software
1

Hallo Lynn,

es geht um die Forsetzung der Beitragsfolge die schon im Archiv ist:

/t/megatabelle-teilen/5354861/18

du hast dort ja den folgenden Link zur Mappe genannt:

http://rapidshare.com/files/265860373/Testtabelle_sp…

Dazu habe ich jetzt folgenden Code gebastelt:

Sub Block()
Dim Zei As Long, Spa As Long, Tabname As String
With Worksheets("Gesamttabelle")
 For Zei = 5 To .Cells(Rows.Count, 1).End(xlUp).Row Step 80
 For Spa = 2 To .Cells(1, Columns.Count).End(xlToLeft).Column Step 12
 Worksheets.Add after:=Worksheets(Worksheets.Count)
 .Range("A1:A4").Copy Destination:=Range("A1")
 .Range(.Cells(1, Spa), .Cells(4, Spa + 11)).Copy Destination:=Range("B1")
 .Range(.Cells(Zei, 1), .Cells(Zei + 79, 1)).Copy Destination:=Range("A5")
 .Range(.Cells(Zei, Spa), .Cells(Zei + 79, Spa + 11)).Copy Destination:=Range("B5")
 Tabname = .Range(.Cells(Zei, Spa), .Cells(Zei + 79, Spa + 11)).Address(0, 0)
 ActiveSheet.Name = "Teil" & Replace(Tabname, ":", "-")
 Next Spa
 Next Zei
 .Activate
End With
End Sub

Gruß
Reinhard

2

Hallo Reinhard,
super!!! Funzt tadellos. Vielen Dank.
Ich hab mir vorgenommen, in meinem 2. Leben nun doch nicht Rechtsanwalt zu werden (wegen der vielen Knöllchen), sondern Programmierer. Da hat man wenigstens was fürs Leben…
Gruß,
lynndinn

3

super!!! Funzt tadellos. Vielen Dank.
Ich hab mir vorgenommen, in meinem 2. Leben nun doch nicht
Rechtsanwalt zu werden (wegen der vielen Knöllchen), sondern
Programmierer. Da hat man wenigstens was fürs Leben…

Hallo lynndinn,

warum nicht, erst leichte programmieraufgaben, wenn das klappt Hacker/Cracker werden und mal Bundesweit alle Computer löschen wo Knöllchen drinstehen :smile:).

Natürlich nicht alle auf einmal, nein, das fällt ja auf, so schön unbemerkt, mal hier die Hausnummer geändert, mal dort das Geburtsdatum usw. bis der Datenbestand den Wert Null hat.

Achja, diejenigen die Behindertenplätze grundlos beparken, die bleiben natürlich drin, da kannste ruhig das Bußgeld vervielfachen.

Gruß
Reinhard