leere zeilen ergänzen

[datenmaus]

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

[Kuwer]

Hallo,

Code:

Sub LeerezellenFuellen()
  With Cells(1, 1).CurrentRegion.Columns(1)
    .Value = .Offset(, 1).Value
  End With
End Sub

Gruß Uwe

[RPP63]

Moin!
Wenn schon Redundanzen, dann aber gleich richtig? 
Kopiere Spalte B und und füge es als Werte in Spalte A ein …

Gruß Ralf

[datenmaus]

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.

---

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

[datenmaus]

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.

[HKindler]

Hi,

du hast ja auch erst nach den Antworten deine Frage ergänzt. Ursprünglich hast du geschrieben:

in Spalte A und B stehen , pro Zeile, die gleichen Inhalte.

Und genau daran hält sich der Code. Erst danach kam

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.

[snb]

Mir gefallen deise widersprüchlige Fragen.

Code:

Sub M_snb()
  UsedRange.Columns(1) = [If(A1:A20000="",B1:B20000,A1:A20000)]
End Sub

[datenmaus]

Hallo und sorry meine formulierung.

Danke, macht genau das was es soll.

Super