Hallo,
in Spalte A und B stehen , pro Zeile, die gleichen Inhalte.
Jetzt kommt es immer wieder vor das in Spalte A versch. Zeilen leer sind.
Wie kann ich per script alle leeren Zeilen in Spalte A durch den Inhalt (in der gleichen Zeile) durch Spalte B ersetzen lasse?
Dankeschön
Moin!
Wenn schon Redundanzen, dann aber gleich richtig?
Kopiere Spalte B und und füge es als Werte in Spalte A ein …
Gruß Ralf
(10.01.2023, 17:39)RPP63 schrieb: [ -> ]Moin!
Wenn schon Redundanzen, dann aber gleich richtig?
Kopiere Spalte B und und füge es als Werte in Spalte A ein …
Gruß Ralf
Hallo Ralf,
genau das geht halt nicht, denn es ist ja nicht immer alles gleich.
Ich muss nur wenn z.B. Spalte A Zeile 12 leer ist den Inhalt von Spalte B Zeile 12 nach A kopieren.
(10.01.2023, 15:53)Kuwer schrieb: [ -> ]Hallo,
Code:
Sub LeerezellenFuellen()
With Cells(1, 1).CurrentRegion.Columns(1)
.Value = .Offset(, 1).Value
End With
End Sub
Gruß Uwe
Guten Morgen Uwe,
schon mal danke.
probiere ich gleich aus.
Danke
Hallo Uwe,
so wird doch einfach alles kopiert und eingefügt.
Es müssen aber nur die leeren Felder kopiert und ergänzt werden.
Also wenn A5 leer ist, dann den Inhalt von B5 nach A5 kopieren.
Nicht leere in A dürfen nicht angepackt werden.
Hi,
du hast ja auch erst nach den Antworten deine Frage ergänzt. Ursprünglich hast du geschrieben:
Zitat:in Spalte A und B stehen , pro Zeile, die gleichen Inhalte.
Und genau daran hält sich der Code. Erst danach kam
Zitat:genau das geht halt nicht, denn es ist ja nicht immer alles gleich.
Teste mal folgendes:
Code:
Dim Zelle As Range
For Each Zelle In Cells(1, 1).CurrentRegion.Columns(1).SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(, 1)
Next Zelle
Allerdings kommt hier ein Fehler, falls in Spalte A alle Zellen belegt sind. Das müsste man bei Bedarf noch abfangen.
Mir gefallen deise widersprüchlige Fragen.
Code:
Sub M_snb()
UsedRange.Columns(1) = [If(A1:A20000="",B1:B20000,A1:A20000)]
End Sub
Hallo und sorry meine formulierung.
Danke, macht genau das was es soll.
Super
