Abkürzung ausschreiben
24.08.2017 10:39:08
Moritz
ich hätte ein Problem und hoffe ihr könnt mir helfen.
Ich hab ein csv-datei mit über 1000 Abkürzungen in der ersten Zeile und darunter liegenden Werten.
Da ich zur Weiterverarbeitung der Daten gerne die Abkürzungen darunter ausgeschrieben haben möchte benötige ich eure Hilfe.
Also in der ersten Zeile befinden sich namen wie zum Beispiel RAW:AD13YD:0:0 und ich würde dafür gerne die entsprechende Abkürzung in der Zeile darunter haben. Und das würde ich gerne für alle Werte haben.
Ich habe zwar eine andere csv-Datei in der die Daten ausgeschrieben sind, aber leider steht dort nur AD13YD = Umgebungstemperatur. Das RAW und 0:0 fehlt dort.
Somit würde ich jetzt gerne einen relativ einfachen Code benötigen der prüft ob die Abkürzung in der Spalte vorhanden ist und wenn ja in der spalte darunter, den ausgeschriebenen Wert einfügt. Somit muss ich diesen Code zwar über 1000 wiederholen aber so kann ich sicher sein, dass ich alle Abkürzungen habe .
Meine Idee wäre:
Sub Kopieren()
If Cells(1) = "RAW:AD13YD:0:0" Then
insert("Exhaust O2 [%]) in cells(2)
Else
End
Sub
Ich sags gleich in bin leider nicht so bewandert in VBA.
Gruß Moritz