Hallo community, man stelle sich folgendes vor:
Ist-Zustand wäre:
Spalte1 | Spalte2 |
Stadt | |
| Berlin |
| Hamburg |
Land | |
| Deutschland |
| Schweiz |
| Luxemburg |
Ziel-Zustand sollte:
Spalte1 | Spalte2 |
Stadt | |
Stadt | Berlin |
Stadt | Hamburg |
Land | |
Land | Deutschland |
Land | Schweiz |
Land | Luxemburg |
Ich habe es früher per hand runter gezogen.
Zwei Nachteile:-Zeitaufwand bei großer Excel-Tabelle
-aus zBsp: Stadt1 wurde beim runter ziehen Stadt2, Stadt3 und nicht Stadt1, Stadt1, Stadt1...
Gibt es eine funktion die man anwenden könnte, die mir die Lücken in einer Spalte mit dem Begriff vor der Lücke befüllt?
Liebe Grüße Kloso
Hallo Kloso,
in Spalte1 (a) selbst habe ich es nicht hinbekommen (Zirkelbezug), aber in Spalte3 (c) klappt es.
a b c
1 stadt
2 hh
3 b
Zelle
c1: =a1
c2: =WENN(ISTLEER(A2);C1;A2)
Wenn du nun die Formel in c2 kopierst und dann von c3 bis cxxx einfügst, steht in Spalte3 (C) überall der gewünschte Wert.
lg
crystal
Hallo crystal,
leider erst jetzt dazu gekommen zu antworten. Habe es mit einem VBA-Code im Endeffekt gelöst:
Sub SpalteInSpalte()
Dim strSpalte As String
Dim strSpalte2 As String
Dim strSpalte3 As String
MsgBox "Gebe ein welche (Spalte1) in welche (Spalte2) kopiert werden muss."
strSpalte = Application.InputBox( _
"Gebe Spalte1 ein:", , "z.Bsp: C", , , , , 2)
strSpalte2 = Application.InputBox( _
"Gebe Spalte2 ein:", , "z.Bsp: D", , , , , 2)
Columns(strSpalte).Select
Selection.Copy
Columns(strSpalte2).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
End Sub
Funktioniert wie gewünscht :)
Ohne VBA wäre es auch möglich jedoch zu aufwändig.
Danke trotzdem
Viele Grüße