Zellen mit Wert füllen bis Ende

[vatifant]

Hallo zusammen,
ich benutze Excel 2013
In dem Tabellenblatt Alphabetisch werden per VBA die Spalten F und G ab der 2. Zelle mit Werten befüllt.
Nun möchte ich, dass in den Spalten A bis C ab der 2. Zelle die Werte aus dem Tabellenblatt Stammdaten A2 bis C2 bis letzte befüllte Zelle in Spalte F eingetragen werden.
Kann mir da einer mal auf die Sprünge helfen.


Gruß

Michael

[Matthias84]

Hallo,

die letzte Zeile bestimmst du beispielsweise so. Daneben ist

Kann mir da einer mal auf die Sprünge helfen.

keine wirklich konkrete Fehlerbeschreibung. Woran scheitert es genau?

[vatifant]

Hallo Matthias,
gebe dir natürlich Recht.  :20:

Ich habe mittlerweile einen Code gefunden, den ich allerdings nicht nach meinen Bedürfnisse anpassen kann.

Der Code liest den Wert in Zelle A1 aus und befüllt dann die Zellen in Spalte A bis zum letzten Wert in Spalte F:

Code:

Sub FuellenN()
' Füllt im aktiven Tabellenblatt in Spalte A die Leeren Zellen auf.
Dim lngLastRow As Long, lngI As Long
lngLastRow = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row
For lngI = 1 To lngLastRow
   If ActiveSheet.Cells(lngI, 1) = "" Then
      ActiveSheet.Cells(lngI, 1) = ActiveSheet.Cells(lngI - 1, 1)
   End If
Next lngI
End Sub

Wie muss ich diesen Code ändern, damit er die Zelle A1 im Tabellenblatt Stammdaten ausliest und dann überträgt?
Gruß
Michael

[Gast 123]

Hallo Michael

vielleicht hilft dir dieses kurze Makro das Problem zu lösen.  würde mich freuen ...

mfg  Gast 123

Code:

Sub Makro1()
   With Worksheets("Alphabetisch")
       lz = .Cells(Rows.Count, "F").End(xlUp).Row
       .Range("A2:A" & lz) = Worksheets("Stammdaten").Range("A2")
       .Range("B2:B" & lz) = Worksheets("Stammdaten").Range("B2")
       .Range("C2:C" & lz) = Worksheets("Stammdaten").Range("C2")
   End With
End Sub

[vatifant]

Hallo Gast 123,
erst einmal schönen Dank für das Makro.
Werde es Mittwoch ausprobieren (morgen habe ich mir mal erlaubt Überstunden abzubauen :19: ).
Werde mich dann melden.

Gruß und schönen Abend

Michael

[vatifant]

Hallo Gast 123,

funktioniert einwandfrei.
Nochmals schönen Dank.

Gruß

Michael