dnbma
17. Oktober 2008 um 08:33
1
Hallo zusammen,
ich habe jetzt wieder ein Problem, da ich nicht viel von VBA verstehe.
Es geht um diesen Makro von Reinhard (super Teil!)
http://www.wer-weiss-was.de/app/service/board_navi?j…
Kann man diesen auch erweitern, dass er erkennt dass
Die Spalten A, B, C, zusammen gehören und auch die Spalten D, E, F.
und die Tabelle trennt. Ich denke das wir ziehmlich kompliziert sein.
Ist jetzt auch eine andere Tabelle (Vokabeln)
Beispiel:
SpalteA|SpalteB|SpalteC|SpalteD|SpalteE|Spalte F
etc.
es soll dann so aussehen dass so aufgeteilt wird, da ich auf Seite einrichten - Anpassen auf 2Blätter hoch und 2Blätter breit gemacht habe
SpalteA|SpalteB|SpalteC|SpalteD|SpalteE|Spalte F
(neues Blatt)
i…-…„Text“…m…-…„Text“
die Tabelle geht bis Z ich wollte jetzt nur nicht das ganze Alphabet auflisten.
gibt es so was?
Wäre jedenfalls gut dann muss man es nicht immer manuell machen, ist immer ziemlich viel Arbeit.
Grüße dnbma
PS: Für Rechtschreibfehler bitte ich zu entschuldigen
Kann man diesen auch erweitern, dass er erkennt dass
SpalteA|SpalteB|SpalteC|SpalteD|SpalteE|Spalte F
es soll dann so aussehen dass so aufgeteilt wird, da ich auf
SpalteA|SpalteB|SpalteC|SpalteD|SpalteE|Spalte F
(neues Blatt)
i…-…„Text“…m…-…„Text“
Hi dbnma,
Sub Sortier2()
Dim Zei1 As Long, Zei1b As Long, Zei1c As Long
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("A").Delete
Worksheets("B").Delete
Application.DisplayAlerts = True
On Error GoTo Ende
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
Zei1 = .Range("A" & Rows.Count).End(xlUp).Row
Zei1b = Int(Zei1 / 2) - 1 \* (Zei1 Mod 2 0)
Zei1c = Zei1 - Zei1b
Worksheets.Add after:=Worksheets(Worksheets.Count)
.Range("A1:C" & Zei1).Copy Destination:=Range("A1")
.Range("D1:F" & Zei1).Copy Destination:=Range("A" & Zei1 + 1)
Range("A1:C" & 2 \* Zei1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, \_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
ActiveSheet.Name = "A"
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "B"
With Worksheets("A")
.Range("A" & Zei1b + 1 & ":C" & 2 \* Zei1b).Cut Destination:=.Range("D1")
.Range("A" & 2 \* Zei1b + 1 & ":C" & 2 \* Zei1b + Zei1c).Cut Destination:=Range("A1")
.Range("A" & Zei1 + Zei1b + 1 & ":C" & 2 \* Zei1).Cut Destination:=Range("D1")
End With
Ende:
Application.ScreenUpdating = True
End Sub
Gruß
dnbma
19. Oktober 2008 um 14:26
3
Hi,
erst mal vielen Dank für den Makro und für die Arbeit. Funktioniert eigentlich auch super.
Aber bei mir macht er es nicht ganz so wie ich es brauche.
SpalteA|SpalteB|SpalteC|SpalteD|SpalteE|Spalte F
(neues Blatt)
i…-…„Text“…m…-…„Text“
sondern so:
SpalteA|SpalteB|SpalteC|SpalteD|SpalteE|Spalte F
(neues Blatt)
e…-…„Text“…m…-…„Text“
was habe ich scchon wieder falsch gemacht?
Grüße
erst mal vielen Dank für den Makro und für die Arbeit.
Aber bei mir macht er es nicht ganz so wie ich es brauche.
Hallo M… äh dnbma *gg*,
ich muß ehrlich sagen, dieses Anpassen auf 2 Seiten hoch und 2 Seiten breit ist mir nicht 100%ig klar, ich habe da maximal mal benutzt dies auf 1 Seite anzupassen.
Deshalb habe ich das ignoriert und deine Ausgangstabelle, so wie ich sie mir vorstelle dann als Ergebnis auf zwei Blätter verteilt.
Bei Tests mit dem Code hat das so funktioniert wie ich mir das vorstelle.
Jetzt ist vieles möglich warum der Code bei dir nicht das liefert was du wünschst.
Erstelle also bitte eine Beispielmappe wo man in Blatt1 sieht wie deine Ausgangstabelle aussieht.
Hochladen der Mappe dann mittels FAQ:2861 o.ä.
Gruß
dnbma
21. Oktober 2008 um 19:39
5
Hallo,
lassen wir das, ich machs manuel.
Grüße
