Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen in Spalte A auffüllen

Betrifft: Zellen in Spalte A auffüllen von: xtian
Geschrieben am: 07.09.2020 09:50:17

Guten morgen zusammen,
ich benötige einmal Hilfe für ein Makro. Das Makro sucht zunächst in der Spalte E bis wohin der letzte Eintrag
gemacht wurde. Dann soll das Makro in der Spalte A den jeweiligen Text nehmen und solange kopieren bis
der nächste Wert kommt.

Ausgangssituation:
SpalteA…………..SpalteE
11111...…………...Text
…………...………..Text
22222...………......Text
…............……...….Text
…............……...….Text

Das soll das Makro machen:
SpalteA…………..SpalteE
11111...…………...Text
11111...…………...Text
22222...………......Text
22222...………......Text
22222...………......Text

Leider kommt eine Fehlermeldung und das Makro funktioniert nicht. Sieht vielleicht jemand den Fehler?

Sub AuffuellenA() 
 Dim Bereich As Variant
 Dim Zaehler As Long
 Dim LastRow As Long
 LastRow = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
 Bereich = Range("A1:A" & LastRow).Value
 For Zaehler = 1 To LastRow
 If IsEmpty(Bereich(Zaehler, 1)) Then Bereich(Zaehler, 1) = Bereich(Zaehler - 1, 1)
 Next
Range("A1:A" & LastRow) = Bereich
End Sub
Gruß Christian

Betrifft: AW: Zellen in Spalte A auffüllen
von: ChrisL
Geschrieben am: 07.09.2020 09:56:37

Hi Christian

Das Makro funktioniert bei mir fehlerfrei.

Der Inhalt der Fehlermeldung könnte einen Anhaltspunkt zum Problem geben.

cu
Chris

Betrifft: AW: Zellen in Spalte A auffüllen
von: xtian
Geschrieben am: 07.09.2020 10:04:45

Hallo Chris,
bei mir kommt ein Laufzeitfehler 9. Index außerhalb des gültigen Bereichs. Es ist
davor noch ein anderes Makro geschaltet.

Gruß
Christian

Betrifft: AW: Zellen in Spalte A auffüllen
von: ChrisL
Geschrieben am: 07.09.2020 10:11:40

Hi

Vielleicht ist die erste Zelle leer.

Ansonsten eine Beispieldatei laden, womit man das Problem rekonstruieren kann.

cu
Chris

Betrifft: AW: Zellen in Spalte A auffüllen
von: xtian
Geschrieben am: 07.09.2020 10:22:47

Hi,
ja, die erste Zelle ist leer. Eine Idee wie ich das Problem beheben kann?

Gruß
Christian

Betrifft: AW: Zellen in Spalte A auffüllen
von: ChrisL
Geschrieben am: 07.09.2020 10:31:32

Hi

Technisch gesehen, siehe Antwort von Gerd.

Allerdings kannst du nichts "auffüllen", wenn nichts vorhanden ist.

cu
Chris

Betrifft: AW: Zellen in Spalte A auffüllen
von: xtian
Geschrieben am: 07.09.2020 10:56:40

Hi,
habe gerade bemerkt, dass die Zeile 1 und 2 immer leer sind. Ab Zeile 3 kommt dann der
erste Wert der dann weiter runter "aufgefüllt" werden muss. Die Lösung von Gerd klappt
erstmal soweit. Auch Dir vielen Dank für deine Hilfe.

Viele Grüße
Christian

Betrifft: AW: Zellen in Spalte A auffüllen
von: GerdL
Geschrieben am: 07.09.2020 10:21:59

Hallo Christian,

setze mal den Zählerstart auf 2 statt 1.

Gruß Gerd

Betrifft: AW: Zellen in Spalte A auffüllen
von: xtian
Geschrieben am: 07.09.2020 10:40:09

Hallo Gerd,

scheint zu funktionieren. Vielen Dank für den Tip.

Viele Grüße
Christian

Betrifft: AW: Zellen in Spalte A auffüllen
von: GerdL
Geschrieben am: 07.09.2020 11:11:59

Hallo,

noch eine Alternative.
Sub AuffuellenA()


    Dim R As Range, B As Range
    
    
    Set R = Range("A2:A" & Cells(Rows.Count, 5).End(xlUp).Row)
    
    If WorksheetFunction.CountBlank(R) > 0 Then
    
            Set R = R.SpecialCells(xlCellTypeBlanks)
        
            For Each B In R.Areas
        
                B.Value = B(0, 1).Value
        
            Next
        
    End If
    
    Set R = Nothing


End Sub
Gruß Gerd

Beiträge aus dem Excel-Forum zum Thema "Zellen in Spalte A auffüllen"