Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zelle befüllen bis nächste befüllte Zelle

Forumthread: Leere Zelle befüllen bis nächste befüllte Zelle

Leere Zelle befüllen bis nächste befüllte Zelle
06.03.2009 12:14:07
Chris
Hallo Zusammen,
Ich habe da ein kleines Problem wobei ihr bestimmt helfen könnt.
Mein Arbeitsblatt sieht ungefähr so aus:
Zelle A1: 1
Zelle A2: ist leer
Zelle A3: ist leer
Zelle A4: ist leer
Zelle A5: ist leer
Zelle A6: 2
Zelle A7: ist leer
Zelle A8: ist leer
Zelle A9: 3
Die Zelle A2 bis A5 soll mit der Zahl (1) aus Zelle A1 befullt werden.
Die Zelle A7 bis A8 soll mit der Zahl (2) aus Zelle A6 befüllt werden.
usw.
Die Anzahl freie Zellen kann jedes Mal anders sein.
Ich würde mich über eine Lösung des Problems freuen.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zelle befüllen bis nächste befüllte Zelle
06.03.2009 12:22:59
UweD
Hallo
geht mit diesem Makro:
- Bereich A1 bis A9 (oder weiter runter) markieren.
Makro starten.


Sub Fehlende_Werte_in_Spalte_auffüllen()
'   Bereich vorher markieren
    For Each z In Selection.SpecialCells(xlCellTypeBlanks)
        If z.Row = 1 Then GoTo weiter
        z.Value = Cells(z.Row - 1, z.Column)
weiter:
    Next z
End Sub


Gruß UweD
Anzeige
AW: Leere Zelle befüllen bis nächste befüllte Zelle
06.03.2009 12:23:34
Mike
Hey Chris,
ich lös dies jeweils mit einem Auswert-Bereich (vor den effektiven Daten)
oder als Variante 2 direkt in der Spalte:
Tabelle1

 ABCDEFG
11 1 Variante2:1 
21    1 
31    1 
41    1 
51    1 
62 2  2 
72    2 
82    2 
93 3  2 
103    2 
113    2 
123    2 
133    2 
14     2 
15Auswert- Originaldaten  2 
16bereich    2 
17     2 
18     2 
19     2 
20     2 
21       
22     Originaldaten 
23       
24       
25       

Formeln der Tabelle
ZelleFormel
A1=C1
A2=WENN(C2=""; A1; C2)
F2=F1
A3=WENN(C3=""; A2; C3)
F3=F2
A4=WENN(C4=""; A3; C4)
F4=F3
A5=WENN(C5=""; A4; C5)
F5=F4
A6=WENN(C6=""; A5; C6)
A7=WENN(C7=""; A6; C7)
F7=F6
A8=WENN(C8=""; A7; C8)
F8=F7
A9=WENN(C9=""; A8; C9)
F9=F8
A10=WENN(C10=""; A9; C10)
F10=F9
A11=WENN(C11=""; A10; C11)
F11=F10
A12=WENN(C12=""; A11; C12)
F12=F11
A13=WENN(C13=""; A12; C13)
F13=F12
F14=F13
F15=F14
F16=F15
F17=F16
F18=F17
F19=F18
F20=F19


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruss
Mike
Anzeige
AW: Leere Zelle befüllen bis nächste befüllte Zelle
06.03.2009 12:26:23
Josef
Hallo Chris,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub fuellen()
  Dim rngC As Range, rng As Range
  Dim lngLast As Long, lngR As Long
  
  On Error Resume Next
  Set rngC = Range("A:A").SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
  
  If Not rngC Is Nothing Then
    
    lngLast = Cells(Rows.Count, 1).End(xlUp).Row
    
    If lngLast > 1 Then
      For Each rng In rngC
        If rng.Row < lngLast Then
          Range(rng, rng.End(xlDown).Offset(-1, 0)) = rng
        End If
      Next
    End If
  End If
  
  Set rngC = Nothing
End Sub

Gruß Sepp

Anzeige
Leere Zelle befüllen bis nächste befüllte Zelle
06.03.2009 12:58:22
Uwe
Hallo,
also ich löse das immer ohne Makro und zwar so:
Den Bereich A2 bis A9 markieren (also ab der ersten LEEREN Zelle)
Dann:
Bearbeiten/ Gehe zu/ Inhalte/ Leerzellen / OK.
Dann eingeben (aktive Zelle der Auswahl ist ja A2): =A1 (noch nicht ENTER!)
Dann: STRG & ENTER
Fertig.
Klappt es?
Gruß
Uwe
(:o)
Anzeige
AW: Leere Zelle befüllen bis nächste befüllte Zelle
06.03.2009 13:38:17
Chris
Hallo Zusammen,
Darf ich euch Allen herzlich danken für die Lösungen.
Alle Lösungen tun es.
Nochmals herzlichen Dank für die Unterstützung.
Chris
;

Forumthreads zu verwandten Themen

Leeren von Textfeldern
Textfeldern

Hallo
brauch mal wieder Hilfe!
in meiner Userform sind einige Textboxen und comboboxen mit Werten zur weiteren Berechnung gefüllt.
jetzt die Frage: Gibt es einen Möglichkeit mit einen CommantButton alle Inhalte der textboxen und Comboboxen mit einem Click zuleeren um sie neu zubefül...
07.08.2008 22:26:00
Thread-ID: 1000114
11 Beiträge
leere Zellen Zählen
Lemmi

Hallo zusammen,
ich habe in einer Spalte A
0
größrer (1;2;..)
und leer Zellen
Wie kann ich denn nur die leeren Zellen zählen?
Gruß
Lemmi
08.08.2008 11:29:00
Thread-ID: 1000221
3 Beiträge
Anzeige
in ComboBox leere Zellen + Duplikate löschen
Uwe

Hi nochmal:
Ich konnte mit folgendem Befehl viel Platz sparen:
With Sheets("Katalog")
UserForm1.cob_produkt.RowSource = "'Katalog'!" _
& .Range("A2:C" & .UsedRange.Rows.Count).Address
End With
Das Problem:
A2: A
A3: B
A4: -leer-
A5:...
26.08.2008 14:56:01
Thread-ID: 1004819
2 Beiträge
in ComboBox leere Zellen + Duplikate löschen
Uwe

Hi nochmal:
Ich konnte mit folgendem Befehl viel Platz sparen:
With Sheets("Katalog")
UserForm1.cob_produkt.RowSource = "'Katalog'!" _
& .Range("A2:C" & .UsedRange.Rows.Count).Address
End With
Das Problem:
A2: A
A3: B
A4: -leer-
A5:...
26.08.2008 14:58:00
Thread-ID: 1004820
4 Beiträge
Anzeige
Leere Zellen
Florian

Hallo,
ich habe folgendes Problem:
Über ein Makro (weiter unten) möchte ich eine Auswertung machen. Die Daten stehen in der Tabelle „Fall 1“.
Als Ergebnis möchte ich die gesamte Zeit haben. Die Zahlen sind aber als Text formatiert. Deshalb multipliziere ich die Zellen mit 1, damit...
01.09.2008 12:27:48
Thread-ID: 1006400
2 Beiträge
Anzeige
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
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
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
Gültigskeitsprüfung mit leerer Zelle
Franz

Guten Abend!
Habe 9 Spalten mit Dropdowns gefüllt. Wie bekomme ich den nachfolgenden Code (Quelle: Archiv) eleganter hin, dh. ohne for next Schleife und dadurch schneller. Der Datenbereich heistt "Printarea".
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i =...
14.09.2008 20:56:00
Thread-ID: 1009627
11 Beiträge
VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Abbruch eines Makros bei Erreichen e.leeren Zeile
Josef

Guten Morgen!
Ich muß regelmäßig Textdateien in ein Arbeitsblatt einlesen lassen.
In dem nachfolgenden Makro Markierung_I werden die Zellen von I1 bis I10000 markiert und danach in diese Zellen die nachstehende Formel reinkopiert.
Wenn ich jedoch z.B. nur 180 Zeilen einlesen lassen...
18.09.2008 06:46:00
Thread-ID: 1010577
7 Beiträge
Anzeige
Button soll Zelle prüfen ggfs. Zellbereich leeren
André

Hallo Leute,
vollgendes Problem:
Ich habe einen CommandButton, der folgendes machen soll:
***
Wenn Click, dann prüfe Wert in Zelle D6
wenn Wert = "frei"oder "krank" oder "Url", dann leere Zellen im Bereich D7:D43
wenn Wert= "früh", dann schreibe in Zelle D21:D23 "Mittag...
18.09.2008 14:29:48
Thread-ID: 1010740
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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