seit Jahren klicke ich mich dusselig, wenn ich neue VG Wort Marken bestellt habe. Ich schicke ein Beispiel der CSV, die man von denen bekommt, mit.
Für meinen Arbeitsablauf brauche ich immer den Identifikationscode (in Spalte C) in der gleichen Reihe wie den Code in Spalte B. Also muss diese Zahlenkombi in Spalte C jeweils immer eine Zeile hoch. Ich kenne mich aber leider überhaupt nicht mit Funktionen aus, sodass ich das immer hunderte Male händisch machen muss.
Seid ihr so nett und könnt mir helfen? Das wäre großartig!
sehr wahrscheinlich kann man das mit VBA lösen, aber es wäre besser eine xl-Datei mit "ist" und "soll", also vorher und das Wunschergebnis, hochzuladen.
Sub ID_eins_hoch()
Dim rngA As Range
Set rngA = Columns(1).SpecialCells(xlCellTypeConstants)
rngA.Offset(0, 2).Value = rngA.Offset(1, 2).Value
rngA.Offset(1, 2) = ""
End Sub
Gruß Uwe
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28 • milan
29.09.2017, 11:02 (Dieser Beitrag wurde zuletzt bearbeitet: 29.09.2017, 11:02 von milan.)
Hallo Uwe,
großartig, vielen Dank. Musste zwar erstmal googeln, wie und wo ich das überhaupt eintrage und ausführe, aber man wächst ja bekanntlich mit den Aufgaben. ;)
Vielen Dank für deine schnelle Hilfe! Das werde ich zukünftig noch oft brauchen.
Edit: Ach nein, KORREKTUR:
Das Makro setzt immer den gleichen Buchstaben-Zahlen-Code an die Stelle in der Spalte eins höher. Aber diese privaten Identifikationscode sind ja immer unterschiedlich. Hast du noch einen Tipp bzw. ein überarbeitetes Makro für mich?
Sub ID_eins_hoch()
Dim rngA As Range, rngZ As Range
Set rngA = Columns(1).SpecialCells(xlCellTypeConstants).Offset(1, 2)
Application.ScreenUpdating = False
For Each rngZ In rngA
rngZ.Cut rngZ.Offset(-1)
Next rngZ
Application.ScreenUpdating = True
End Sub
Gruß Uwe
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28 • milan
![[-]](https://www.clever-excel-forum.de/images/collapse.png)