Clever-Excel-Forum

Hallo zusammen. In meiner Tabelle hab ich ein Problem. Auf der Testseite(Test) klappt das mit dem Formel runter ziehen aber auf der Seite wo es eigentlich hin soll (Auswertung)da geh es nicht, komischer Weise. Könnte mir da bitte jemand helfen. Super toll wäre auch eine Lösung ohne das das Format geändert wird

Code:
Sub Makro()

Tabelle3.Range("b1", "b50").ClearContents

Dim lngLR As Long

With Sheets("test")

lngLR = .Cells(.Rows.Count, 1).End(xlUp).Row

.Cells(1, 2).FormulaLocal = "=Auswertung!D4+1"

.Cells(1, 2).Resize(lngLR).FillDown

End With

End Sub

[attachment=51531]

Das ist so mein code. Ich verstehe da nicht warum er auf der Auswertungstabelle nur die Blaue Farbe runter zieht. Vielen Dank schon mal

Hi,

was soll das werden? Dein Code füllt die Spalte B ab B1 mit Zahlen, und zwar jeweils die Zahl aus D4ff. erhöht jeweils um 1. Dazu fragst Du die letzte belegte Zeile in A ab, das ist A1. Also wird nur 1Zeile gefüllt.

Versuche mal das:

Code:
Sub Makro()

'Sheets("test").Range("d1:d50").ClearContents

Dim lngLR As Long

With Sheets("Auswertung")

lngLR = .Cells(.Rows.Count, 4).End(xlUp).Row - 3

.Cells(1, 2).FormulaLocal = "=D4+1"

.Cells(1, 2).Resize(lngLR).FillDown

End With

End Sub

Das um 1 erhöhen sollte nur ein Platzhalter für die Formel sein. Gedacht war das er auf "Auswertung" Spalte E mit einer Formel ausfüllt aber ich sehe mein Denkfehler hatte row -3 nicht drin. vielen Dank

thrustssc

BoskoBiati

thrustssc