Tabellenzellen auffüllen

Bild

Betrifft: Tabellenzellen auffüllen von: Burghard
Geschrieben am: 04.04.2005 17:39:11

Hallo,

leider reißen bei mir die Probleme nicht ab. Kann mir jemand noch helfen?

Ich habe eine Tabelle mit den Spalten A - G.

In den Spalten E, F und G finden sich hin und wieder Leerzeilen.Ich möchte gerne, daß diese leeren Zellen mit den entsprechenden Zeilen / Zellen von A, B und C aufgefüllt werden.

Als Beispiel habe ich die Tabelle vorher und nachher (Wunsch) zum Server hochgeladen.

Userbild


Hilfe wäre sehr nett.

Schönen Gruß

Burghard

Bild


Betrifft: AW: Tabellenzellen auffüllen von: ransi
Geschrieben am: 04.04.2005 19:11:43



      
Hallo burkhardt

versuch mal so:

Option Explicit


Public 
Sub t()
Dim L As Long
Dim bereich As Range
For L = 1 To 100
    
If WorksheetFunction.CountIf(Range(Cells(L, 5), Cells(L, 7)), "") = 3 Then _
    Range(Cells(L, 1), Cells(L, 3)).Copy Range(Cells(L, 5), Cells(L, 7))
Next
End 
Sub

ransi
 


     Code eingefügt mit Syntaxhighlighter 3.0




Bild


Betrifft: AW: Tabellenzellen auffüllen von: Burghard
Geschrieben am: 04.04.2005 19:35:31

Hallo Ransi,

super, klappt einwandfrei. Vielen Dank!

Gruß

Burghard


Bild


Betrifft: freut mich wenns klappt o.T. von: ransi
Geschrieben am: 04.04.2005 21:05:52




 Bild

Beiträge aus den Excel-Beispielen zum Thema "Gliederung/Gruppierung & Kommentare mit Blatschutz"