Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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
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
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

    349 Forumthreads zu ähnlichen 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
    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
    Anzeige
    Warum leere Zelle "" >0 ???
    Simon

    Hallo,
    ich verstehe das Ergebnis meiner Formel nicht ganz:
    ich habe eine wenn Funkion nach folgendem Schema gemacht:
    wenn(A1=5;"ok";"")
    Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
    15.09.2008 10:08:00
    Thread-ID: 1009683
    13 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
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    5
    6
    4
    15
    5
    12
    2
    9
    2
    9
    4
    3
    10
    4
    2
    5
    5
    4
    2
    7
    7
    1
    5
    9
    1