Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


prüfe ob Zelle leer dann einfügen
#1
Hallo c-e-f Gemeinde,

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ß claudia
to top
#2
Hallo Claudia,

vielleicht so:

Code:
Sub aaa()
  With Worksheets("Früh")
    Worksheets("Eingabe").Range("A6,C6,D6,E6,F6,J6,K6").Copy .Range(.Cells(6, 2), .Cells(Rows.Count, 2)).SpecialCells(xlCellTypeBlanks).Cells(1)
  End With
End Sub

Gruß Uwe
to top
#3
@Kuwer

wenn ich dein Code ausführe kommt eine Fehlermeldung das keine Zellen gefunden wurden.
to top
#4
Hallo Claudia,

willst Du vielleicht die erste leere Zelle in Spalte B ermitteln?

Gruß
Max
to top
#5
Hallo Max,

Zitat:willst Du vielleicht die erste leere Zelle in Spalte B ermitteln?

Ja, das will sie, halt ab Zelle B5.
Offensichtlich gibt es da keine wirklich leeren Zellen.

Gruß Uwe
to top
#6
Hallo Uwe,

ich hab das auch mal getestet.
Wenn unterhalb der Zelle B5 alle Zellen Leer sind, dann tritt der Fehler auf.
Gruß Atilla

Excel 2007
to top
#7
Hallöchen,

ist ja putzig. Die Erklärung wäre, dass das nur auf den benutzten Bereich wirkt. Dabei ist unerheblich, ob dieser durch einen Eintrag in Spalte B begrenzt wird oder Spalte B nach Zeile 5 leer ist. Schreibt mal in eine andere Spalte weiter unten was rein, dann füllt das Makro bis dahin und dann kommt der Fehler wieder.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#8
Hi André,

SpecialCells bezieht sich definitiv auf den UsedRange der Tabelle. Das ist (leider) so! Sad

Gruß Uwe
to top
#9
Hallo Zusammen,

so geht es aber garantiert in die erste leere Zeile von unten gesehen:

Code:
Sub aab()
  Worksheets("Eingabe").Range("A6,C6,D6,E6,F6,J6,K6").Copy Worksheets("Früh").Cells(Rows.Count, 2).End(xlUp).Offset(1)
End Sub

Gruß Uwe
to top
#10
Hallo,

und so geht es garantiert erst ab Zeile 5 los:

Code:
Sub ErsteFreieVonUnten()
  With Worksheets("Früh")
    Worksheets("Eingabe").Range("A6,C6,D6,E6,F6,J6,K6").Copy .Cells(Application.Max(5, .Cells(Rows.Count, 2).End(xlUp).Row), 2)
  End With
End Sub

Aber offensichtlich interessiert Claudia das Thema gar nicht mehr.

Gruß Uwe
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Makro: Wenn Zelle Wert ≠ 0, dann Wert speichern und Formel löschen TsuBasti1 6 228 01.10.2016, 06:27
Letzter Beitrag: IchBinIch
  Makro: Dynamische Formel in Zelle einfügen chrjh 8 279 22.09.2016, 14:09
Letzter Beitrag: chrjh
  Wenn Spalte E nicht leer dann Datum in Spalte O VBA BadHabiit 4 234 20.09.2016, 14:49
Letzter Beitrag: BadHabiit
  Pfad in der Zelle dann öffnen durch Button Jürschen175 8 204 18.09.2016, 11:31
Letzter Beitrag: Jürschen175
  Wenn ein Wert aus Spalte ähnlich dem Wert der Zelle, dann Nightflash 5 262 12.09.2016, 08:58
Letzter Beitrag: Nightflash
  Zahl finden und andere Zelle einfügen Koncti 13 496 09.09.2016, 10:14
Letzter Beitrag: Koncti
  wenn Zelle leer dann nichts wenn aber Zelle Datum enthält dann nickita 1 180 03.09.2016, 06:03
Letzter Beitrag: schauan
Shocked Wenn Zelleninhalt identisch mit anderer Zelle, dann "Ja" Excelinho 13 638 18.07.2016, 14:51
Letzter Beitrag: Excelinho
  Wenn im Bereich etwas geändert wird, dann schreibe in Zelle (mit Einfügen) FelixWeb 8 492 17.06.2016, 12:51
Letzter Beitrag: FelixWeb
  Wenn bestimmte Zelle leer, dann die komplette Zeile ausblenden (VBA) MrHoef 18 985 07.06.2016, 07:34
Letzter Beitrag: MrHoef

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste