Wenn Zelle leer dann einfügen

Computer: Software & Programmierung Office Software
#1

Hallo w-w-w Team,

ich hab folgendes Problem, habe auch lange im Netz gesucht, leider nichts passendes zu meinem Problem gefunden.

Ich möchte das via VBA geprüft wird, ob die Zelle „B5“ in der Tabelle „Früh“ leer ist, dann füge mir die selektierten Zellen aus der Tabelle „Eingabe“ ein, wenn nicht soll in der Zelle „B6“ geprüft werden ob die Zelle leer ist usw. Ich habe durch die Makro-Aufzeichnung folgendes bekommen.

Sub PruefeObZelleLeer()
   
    Sheets(„Eingabe“).Select
    Range(„A6,C6,D6,E6,F6,J6,K6“).Select
    Selection.Copy
    Sheets(„Früh“).Select
    Range(„B5“).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Leider weiß ich nicht wie ich das mit der Prüfung machen soll. Ich hoffe ihr kommt mir dabei weiterhelfen…

Danke

Gruß Khai…

#2

Hallo Khai,

ungetestet, aber sollte helfen,

Sub PruefeObZelleLeer()

if (Sheets(„Früh“).Range(„B5“).value"" then
Sheets(„Eingabe“).Range(„A6,C6,D6,E6,F6,J6,K6“).Copy
'nächstes select sollte auch entbehrlich sein weiss gerad nicht wie
Sheets(„Früh“).Range(„B5“).select
Application.CutCopyMode = False
end if
End Sub

fg

Dirk.P

#3

Hallo Khai,

sind es immer die Zellen A6,C6,D6,E6,F6,J6,K6, die kopiert werden sollen?
Dann könnte der Makro so aussehen:

Sub kopieren()
 Sheets("Eingabe").Range("A6,C6,D6,E6,F6,J6,K6").Copy Destination:=Sheets("Früh").Range("B5:B" & Rows.Count).Find("")
End Sub

Oder kann es auch sein, dann mal andere Zellen kopiert werden sollen, die du vorher von Hand markierst? Dann ginge das so:

Sub kopieren()
 Sheets("Eingabe").Select
 Selection.Copy Destination:=Sheets("Früh").Range("B5:B" & Rows.Count).Find("")
End Sub

Gruß, Andreas

#4

@ Andreas Perfekte Lösung danke dir :smile: Funktioniert genauso wie ich es mir vorgestellt hatte