Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Zelle leer - mehrere Zellen kopieren

Forumthread: Wenn Zelle leer - mehrere Zellen kopieren

Wenn Zelle leer - mehrere Zellen kopieren
Ralf
Hallo miteinander,
ich habe letzte Woche schon versucht Hilfe zu bekommen. Leider bekam ich keine Antwort.
Da ich einfach nicht weiterkomme nochmals ein Erklärungsversuch:
Ich muss in Tabelle Seiten!E:E überprüfen ob eine Zelle leer ist.
Wenn diese leer ist sollen die Zellen aus Ergebnis!D2:AZ2 in die jeweilige Seiten!E kopiert werden.
Beispiel Seiten!E16 ist leer, dann soll Ergebnis!D2, D3, D4 usw. in Seiten E16, F16, G16 usw. kopiert werden.
Habe leider keinen Lösungsansatz, obwohl ich mir vorstellen kann, dass dies für einen Profi kein Problem darstellen kann.
Wäre für jeden Tip dankbar ;-)
Gruß Ralf
Anzeige
AW: Wenn Zelle leer - mehrere Zellen kopieren
22.11.2011 11:21:39
Reinhard
Hallo Ralf, 
Sub tt()
Dim Zei As Long
With Worksheets("Seiten")
For Zei = 1 To .Cells(Rows.Count, 5).End(xlUp).Row
If .Cells(Zei, 5).Value = "" Then
Worksheets("Ergebnis").Range("D2:AZ2").Copy .Cells(Zei, 5)
End If
Next Zei
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Wenn Zelle leer - mehrere Zellen kopieren
22.11.2011 11:33:40
Ralf
Hallo Reinhard,
sieht schon sehr gut aus...
Vielen Dank erstmal.
Die letzten 3 Zeilen der Tabelle wurden aber leider nicht befüllt.
Kann man abfragen, ob D:D gefüllt ist. Diese Zeilen sind immer befüllt. Wenn hier die erste leer ist ist die Tabelle am Ende.
Hoffe ich habe mich verständlich ausgedrückt.
Gruß Ralf
Anzeige
AW: Wenn Zelle leer - mehrere Zellen kopieren
22.11.2011 11:25:14
marcl
Hallo Ralf,
Spalte E hat doch über 1 Mio Zeilen. Soll in jede leere Zelle das Ergebnsi von D2 bis AZ2 eingetragen werden oder nur in die erste gefundene leere Zeile?
Gruß
marcl
AW: Wenn Zelle leer - mehrere Zellen kopieren
22.11.2011 11:25:44
guentherh
Hallo Ralf,
müsste gehen, berücksichtigt aber nur die genutzten Zeilen in Seiten, sonst werden Millionen von Zeilen mit den gleichen Werten gefüllt.
Gruß,
Günther
Public Sub fuelleSeiten()
Dim zellchen As Range
Worksheets("Seiten").Activate
For Each zellchen In Range("E2:E" & ActiveSheet.UsedRange.Rows.Count)
If zellchen.Text = "" Then
Range("Ergebnis!D2:AZ2").Copy zellchen.Offset(0, -1)
End If
Next
End Sub

Anzeige
AW: Wenn Zelle leer - mehrere Zellen kopieren
22.11.2011 12:00:18
Ralf
Hallo Günther,
dein Code füllt auch noch auf wenn die Zeilen unbenutzt sind (hängt sich quasi auf). Ausserdem schreibt er das Ergebnis ab D und nicht ab E.
Wie ich Reinhard schon geschrieben habe kann man zum bestimmen der letzten Zeile Spalte D heranziehen, da diese bei benutzten Zeilen immer Belegt ist(A oder B kann auch mal leer sein).
Nochmals Danke für die rege Hilfe
Ralf
Anzeige
AW: Wenn Zelle leer - mehrere Zellen kopieren
22.11.2011 12:50:44
Ralf
Habe vergessen die Frage als offen zu setzen.
Die Hoffnung stirbt zuletzt ;-)
Gruß Ralf
AW: Wenn Zelle leer - mehrere Zellen kopieren
22.11.2011 13:05:51
Ralf
Habs alleine hinbekommen.
Musste nur Reinhard's code etwas ändern:
  • 
Sub LeereAuffuellen()
Dim Zei As Long
With Worksheets("Seiten")
For Zei = 1 To .Cells(Rows.Count, 4).End(xlUp).Row
If .Cells(Zei, 5).Value = "" Then
Worksheets("Ergebnis").Range("D2:AZ2").Copy .Cells(Zei, 5)
End If
Next Zei
End With
End Sub

    • Vielen Dank nochmals für eure Hilfe
    Gruß Ralf
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    MSGBox wenn Zelleninhalt geleert wurde?!
    Tom

    Hallo!
    Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
    Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
    Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
    26.08.2008 15:07:01
    Thread-ID: 1004826
    6 Beiträge
    Bitte um Excel Hilfe / Wenn & Leere Zellen
    Hans

    Hallo Leute,
    ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
    Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
    02.09.2008 15:53:00
    Thread-ID: 1006840
    7 Beiträge
    Anzeige
    Leere Zellen Überspringen
    Michael

    Moin zusammen,
    habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
    Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
    Range("A2:AD2").Select
    Range(Selection, Selectio...
    11.09.2008 10:06:00
    Thread-ID: 1008990
    5 Beiträge
    "wenn, dann, sonst" - Frage
    Oliver

    Hallo,
    kleines Problem,
    =WENN($I$4=4;4;0) liefert mir den Wert "0"
    Jetzt habe ich diese Formel folgendermaßen abgeändert:
    =Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
    ... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
    Nun meine Frage,...
    11.09.2008 10:23:00
    Thread-ID: 1008998
    16 Beiträge
    "Wenn Zeit > 17.30 Uhr dann"
    Susanne99

    Hallo,
    wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
    Gruß
    Susanne
    14.09.2008 23:24:58
    Thread-ID: 1009640
    6 Beiträge
    Wenn Zelle leer, dann Grafik löschen
    TomTom

    Hi,
    ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
    gelöscht oder unsichtbar werden.
    Wie mache ich dies ?
    Danke mal
    Gruss
    Tom<...
    22.09.2008 08:28:10
    Thread-ID: 1011373
    3 Beiträge
    Makro unterbrechen wenn bestimmte Zelle leer
    WalterK

    Guten Morgen,
    wer kann mir beim folgenden Code eine kleine Änderung durchführen:
    1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
    2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
    03.10.2008 07:29:45
    Thread-ID: 1013985
    10 Beiträge
    Zählen wenn Zelle nicht leer
    Tim

    Hallo Forum,
    wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
    Gruß
    Tim
    20.10.2008 11:47:00
    Thread-ID: 1017617
    3 Beiträge
    Formel wenn dann sonst ...
    Uwe

    Hallo, Gemeinde ..
    Mir stellt sich folgende Herausforderung:
    ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
    Wie bekomme ich eine Formel hin, die das berechnet, wenn
    - der A...
    31.10.2008 11:20:00
    Thread-ID: 1020821
    10 Beiträge
    Formatierung Zelle auf "1 M" statt "1.000"
    Chris

    Hallo Leute,
    Ich habe eine Frage bezüglich einer Zellformatierung.
    Ich habe einet Tabelle in der Mengen an Großen Zahlen stehen.
    Diese Tabelle würde ich gerne ohne die Werte durch 1000 zu teilen so Formatieren (benutzerdefiniert, das anstatt "1.234.567" nur noch "1.235 M" (gerundet)...
    14.11.2008 16:50:09
    Thread-ID: 1024652
    5 Beiträge
    wenn/dann/sonst???
    m-andi

    Hallo zusammen,
    in VBA bin ich noch ein Depp,
    ich bräuchte bitte eure Hilfe.... das Problem ist folgendes:
    Ich habe in einem Feld (J24) entweder tags, nachts, immer oder nie stehen,
    Bei Tags soll es in die Felder G29 und G45:G52 ein "ja" schreiben, in die Felder G30:G44 ein "ne...
    15.11.2008 13:30:42
    Thread-ID: 1024753
    4 Beiträge
    wenn Spalte F nicht leer, ganze Zeile markieren
    maxx_1985

    Hallo mit'mander
    Ich hab ein kleines VBA Probelem. Naemlich das fogende:
    Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
    Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
    19.11.2008 18:37:00
    Thread-ID: 1026165
    11 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige