Makro in bestimmten Spalten ausführen
08.01.2015 12:23:11
Sebasté
Ich möchte mich erstmal kurz vorstellen. Meine Name ist Sebastian und ich bin momentan mit meiner Abschlussarbeit für mein Studium beschäftigt.
Die Abschlussarbeit befasst sich mit dem Auswerten von Daten einer wärmetechnischen Anlage -> Monitoring.
Zur Zeit stehe ich leider ein wenig auf dem Schlauch bezüglich der Umsetzung in VBA. Ich hoffe, dass mir hier geholfen werden kann.
Aber nun zu meinem Problem:
Ein bestimmter Code soll in gewissen Spalten ausgeführt werden.
Der Code lautet beispielhaft für die Spalte D:
Sub
Dim Inglast as Long
Inglast = Cells(Rows.Count, 3)End(xlUp).Row
Range("D10").Select
ActiveCell.Formula = "RC[-2]+ RC[-1]"
Range("D10").AutofillDestination:= Range("D10:D" & Inglast)
End Sub
Dabei werden in der Spalte D, angefangen ab Zeile 10 die Werte der beiden Zellen B10 + C10 addiert und in Zelle D10 geschrieben. Es handelt sich hierbei um eine Datums-(Spalte B) und Uhrzeitangabe(Spalte C). Danach wird mit Autofill die Spalte D bis zum letzten Wert der Spalte C gefüllt. Die Spalte D durchläuft eine bedingte Formatierung die einen Vergleich zwischen Spalte D und Spalte A durchführt und mir keine doppelten Werte anzeigt. In Spalte A wurde zuvor eine Datums- und Uhrzeitreihe generiert. Der Sinn dahinter ist, dass man fehlende Messwerte identifizieren kann. Die generierte Datums-/Uhrzeitreihe ist dabei lückenlos. Die Messwerte aus Spalte B + C jedoch ggf nicht. Die Messwerte liegen in der Form "dd.mm.yy" in Spalte B und "hh:mm" in Spalte C vor und zusammengeführt "dd.mm.yy hh:mm" in Spalte A und D.
Wie kann ich nun lösen, dass dieses Makro alle vier Spalten, angefangen ab Spalte D, durchläuft? Meine Momentane Lösung beinhaltet leider 25 Makros, da es sich um 25 Messwerte handelt. Irgendwie bekomm ich die Schleife dafür nicht hin.
Wenn ich mich undeutlich ausgedrückt habe, bitte ich um eine kleine Rückmeldung. Vielleicht kann ich noch etwas genauer werden :)
Grüße Sebasté