Makro erweitern bei großer Tabelle?

Computer: Software & Programmierung Office Software
1

Hallo liebe wer weiss was Helfer,

ich habe eine Tabelle1:
1 2 3
01.10.2005 00:15:00 69.788
01.10.2005 00:30:00 70.984
01.10.2005 00:45:00 67.582
01.10.2005 01:00:00 67.752
u.s.w. geht so weiter bis 30.09.2006

Diese Tabelle2 brauche ich jetzt so:

00:15:00 00:30:00 00:45:00 01:00:00
01.10.2005 69.788 70.984 67.582 67.752

Habe es per Makro versucht und es sieht nicht mal so arg schlecht aus:

Range(„C6:C101“).Select
Selection.Copy
Sheets(„Tabelle2“).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets(„Tabelle1“).Select
Range(„C102:C197“).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(„Tabelle2“).Select
Range(„B3“).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range(„A43“).Select
Sheets(„Tabelle1“).Select
Range(„C198:C293“).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(„Tabelle2“).Select
Range(„B4“).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

Info zum Makro:
Aus Tabelle 1 nehme ich 96 Werte aus Spalte 3 heraus, kopiere Sie und füge Sie per Transponieren>Werte in Tabelle 2 ein.

Eigentlich müsste ich das Makro jetzt auf das Ende der Tabelle (Zeilen) erweitern. Wie mache ich das?

Für Hilfe bin ich sehr dankbar.

Liebe Grüße

Lars

2

Hi Lars,

bringe mal den 2ten und 3ten Oktober mit ins Spiel und formatiere mal die Tabellen mit Leerzeichen, dann schreibe (zusammengeschrieben!)

in die Zeile vor den Tabellen und

in die Zeile nach den Tabellen.

Gruß
Reinhard

3

Hallo Reinhard und alle anderen die mir vielleicht helfen könnten,

wenn ich das

 in das Makro einfüge bekomme ich die Meldung: Fehler beim Kompilieren; Erwartet Zeilennummer oder Sprungmarke oder Anweisung oder Anweisungsende.

Da Makro sieht jetzt wie folgt aus:


    
     Range("C2:C97").Select
     Selection.Copy
     Sheets("Tabelle2").Select
     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= \_
     False, Transpose:=True
     Sheets("Tabelle1").Select
     Range("C98:C193").Select
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("Tabelle2").Select
     Range("B3").Select
     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= \_
     False, Transpose:=True
     Sheets("Tabelle1").Select
     Range("C194:C289").Select
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("Tabelle2").Select
     Range("B4").Select
     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= \_
     False, Transpose:=True




End Sub

Ob mit oder ohne 

     ist mir egal.
    
    Gibt es nicht eine einheitliche Eingabe im Visual Basic, wo man sagen kann, so jetzt hab ich dir 3 mal das selbe vorgekaut, jetzt machst du des einfach für den Rest vom Tabellenblatt?
    
    Für Hilfe bin ich natürlich dankbar
    
    Grüße
    
    Lars
    
    
    > <small>[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]</small>
4

Hi Lars,

wenn ich das

in das Makro einfüge bekomme ich die
Meldung: Fehler beim Kompilieren; Erwartet Zeilennummer oder
Sprungmarke oder Anweisung oder Anweisungsende.

sorry, drückte mich wohl zu kurz angebunden aus.

Hast du dir deine Anfrage noch mal angesehen? Was siehste von der Formatierung der Tabelle mit Lerzeichen, die du mal hattest? Nix!

Deshalb mein Hinweis, die Tabelle noch mal zu schreiben, diesmal wie beschrieben mit dem Pre-Tag (wird von w-w-w unterhalb des Eingabefensters nochmal erläutert), denn dann bleibt die Formatierung erhalten.

Pre hat mit dem Makrocode selbst nichts zu tun.

Weiterhin war in der einen Tabelle nur der 1.10 enthalten, wie soll das Ganze auch für den 2. und 3ten aussehen, deshalb mein diesbezüglicher Hinweis.

Gruß
Reinhard

Da Makro sieht jetzt wie folgt aus:

Range(„C2:C97“).Select
Selection.Copy
Sheets(„Tabelle2“).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Sheets(„Tabelle1“).Select
Range(„C98:C193“).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(„Tabelle2“).Select
Range(„B3“).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Sheets(„Tabelle1“).Select
Range(„C194:C289“).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(„Tabelle2“).Select
Range(„B4“).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

End Sub

Ob mit oder ohne

ist mir egal.

Gibt es nicht eine einheitliche Eingabe im Visual Basic, wo
man sagen kann, so jetzt hab ich dir 3 mal das selbe
vorgekaut, jetzt machst du des einfach für den Rest vom
Tabellenblatt?

Für Hilfe bin ich natürlich dankbar

Grüße

Lars

Hi Lars,

bringe mal den 2ten und 3ten Oktober mit ins Spiel und
formatiere mal die Tabellen mit Leerzeichen, dann schreibe
(zusammengeschrieben!)

in die Zeile vor den Tabellen und

in die Zeile nach den Tabellen.

Gruß
Reinhard

5

Hi Reinhard,

vielen Dank für deine Hilfe auch wenn deine Antwort nicht des Problems Lösung war.

So muss das Makro aussehen: (Hat mich 2 Tage und meine nerven gekostet)

sub

a = 2
s = 2
Do While Cells(i, 1) „“

Range(„C“ & i & „:C“ & i + 95).Select
Selection.Copy
Sheets(„Tabelle2“).Select
Cells(k, 2).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets(„Tabelle1“).Select
a = a + 1
s = s + 96

Loop

End Sub

Trotzdem vielen Dank