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
  Wenn Dann Zelle leeren pingu312 4 63 Gestern, 17:59
Letzter Beitrag: atilla
Sad Zählenwenn Zeilen leer Hammsi 12 148 13.02.2017, 18:52
Letzter Beitrag: Hammsi
Question Wenn ZelleA=Datum, dann=Tabelle/Spalte/Zelle Royle 3 95 28.01.2017, 20:23
Letzter Beitrag: Ego
  VBA Textteile finden, ausschneiden in andere Zelle einfügen Klaus 19 317 25.01.2017, 17:31
Letzter Beitrag: Klaus
  Mehrere Werte in eine Zelle einfügen Faiko 2 119 02.01.2017, 17:44
Letzter Beitrag: schauan
  Excel Zelle blinken lassen wenn leer hbboy15 6 223 02.01.2017, 14:33
Letzter Beitrag: Winny
  Steuerelemente ausblenden wenn Zelle leer Hansimglück 2 116 15.12.2016, 08:48
Letzter Beitrag: Kuwer
Exclamation Problem:Zwei Spalten vergleichen wenn wahr dann bereich kopieren und einfügen CherryX 5 165 12.12.2016, 09:18
Letzter Beitrag: steve1da
  Makro: Wenn Zelle Wert ≠ 0, dann Wert speichern und Formel löschen TsuBasti1 6 432 01.10.2016, 06:27
Letzter Beitrag: IchBinIch
  Makro: Dynamische Formel in Zelle einfügen chrjh 8 527 22.09.2016, 14:09
Letzter Beitrag: chrjh

Gehe zu:


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