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
Hallo,
die letzte Zeile bestimmst du beispielsweise
so. Daneben ist
vatifant schrieb:Kann mir da einer mal auf die Sprünge helfen.
keine wirklich konkrete Fehlerbeschreibung. Woran scheitert es genau?
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
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
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
Hallo Gast 123,
funktioniert einwandfrei.
Nochmals schönen Dank.
Gruß
Michael