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"