Supportnet / Forum / Tabellenkalkulation
Makro hängt
Frage
Hallo,
ich messe mit einem Palm III Temperaturen, da bekomme ich eine Textdatei die folendermaßen ausschaut:
myTempLog12:51:45(°C)
12:45:14 3 7.56
12:45:12 2 14.75
12:45:11 1 20.06
12:35:08 3 7.87
12:35:07 2 14.81
12:35:06 1 20.00
dh. es sind 3 Meßstellen, es wird alle 10min gemessen, insgesamt habe ich für eine Woche messen ca 3000 Meßergebnisse.
Für die Verarbeitung in Excel brauche ich folgende Anordnung:
Zeit 3 2 1
12:45:14 7.56 14.75 20.06
12:35:08 7.87 14.81 20.00
Ich habe da ein Makro dafür, das hab ich nicht selbst gemacht, im Prinzip auch funktioniert, nur wenns fertig ist bleibt es hängen, die Zeile mit
Cells.... wird vom Debugger markiert. Mir kommt vor wenn keine Zellen mehr da sind mit einem Wert das merkt das Makro nicht. Unten ist das
Makro.
Zusätzlich muß ich das ganze umdrehen, dh die letzte Zeile muß die erste sein und umgekehrt, sonst wird das Diagramm auch verkehrt, da die
letzte Messung am Anfang ist.
Ich begreife VBA nur etwas im Prinzip, viel mehr nicht.
Ich arbeite mit Excel2003
[code]Sub umordnen()
letzteZeile = Range("A65536").End(xlUp).Row > Feststellung der gefüllten Zeilen
k = 1 > Laufvariable Zusammenstellungszeile
j = 1 > Laufvariabele Folgezeile/- spalte
For i = k + 1 To letzteZeile >For Schleife von Zeile 2 bis letzte Zeile
If Range("B" & i).Value < Range("B" & i - 1).Value Then > Abfrage Wert in Zelle(B i) kleine wie Wert in Zelle(B i-1)
Cells(k, j + 3).Value = Cells(i, 3).Value > umspeichern des Wertes aus Spalte C in Zelle(Zeile k; Spalte j+3)
Range("A" & i & ": C" & i).Select > Zeile i markieren
Selection.Delete Shift:=xlUp > Zeile i löschen
j = j + 1 > Erhöhung Laufvariabele Folgezeile / -spalte
i = i - 1 > Reduzierung von i da Zeile gelöscht und sonst eine Zeile übersprungen würde
Else
k = k + 1 > Erhöhung Laufvariable Zusammenstellungszeile
j = 1 > zurücksetzen der Laufvariabele Folgezeile/- spalte
End If
Next i
End Sub[/code]
Danke Gruß
anax
Antwort 1 von nighty
hi all :-)
du ueberschreitest die zulaessige spaltenanzahl :-))
gruss nighty
du ueberschreitest die zulaessige spaltenanzahl :-))
gruss nighty
Antwort 2 von anaxagoras
Hi nighty,
und wie mach ich das?
was soll ich ändern?
bitte etwas ausführlicher, ich steh am Schlauch, bin VBA Anfänger
Gruß anax
und wie mach ich das?
was soll ich ändern?
bitte etwas ausführlicher, ich steh am Schlauch, bin VBA Anfänger
Gruß anax