Hallo zusammen,
ich habe folgendes Problem:
Zwei Arbeitsblätter: ‚Eingabe‘ und ‚Ausgabe‘
In ‚Eingabe‘ werden Daten in verschiedenen Spalten eingegeben und die Anzahl der Zeilen variert jedesmal.
In ‚Ausgabe‘ wird eine Tabelle gebildet die Daten aus ‚Eingabe‘ beinhaltet aber auch Formeln ausführt.
Mit Autofill weiß ich das ich die Formeln in die Zellen runterziehen kann. z.B.:
Range(„B47“).AutoFill Destination:=Range(„B47:B50“) ', Type:=xlFillDefault
Jetzt möchte ich allerdings die fixe Begrenzung (bis B50) ersetzen durch die Anzhal der tatsächlichen Zeilen aus ‚Eingabe‘ die immer varieren.
Wie kann man den dyna,mischen Bereich berechnen und dann ind die ‚Autofill‘-Formel integrieren?
Versuchs mal hiermit:
Wer kennt es nicht, man will Werte eines Zellbereich
auf einen Wert überprüfen.
Ist der Bereich nicht genau festgelegt,
kennt man auch nicht die letzte Zeile oder Spalte.
Mit der folgenden Anweisung hat dies ein Ende !
Leere Zellen spielen keine Rolle,
die Anweisung ermittelt die absolut letzte Zelle.
'letzte Zeile in Spalte A suchen
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Und was mit Zeilen geht, geht natürlich auch mit Spalten:
'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Hallo zusammen,
ich habe folgendes Problem:
Zwei Arbeitsblätter: ‚Eingabe‘ und ‚Ausgabe‘
In ‚Eingabe‘ werden Daten in verschiedenen Spalten eingegeben
und die Anzahl der Zeilen variert jedesmal.
Hallo michaelc.fischer,
Sorry, ich kann Dir da nicht helfen. Ich kenn’ mich da nicht aus.
Peter
Hallo Michael
Tut mir leid, mit VBA hab ich mich bislang nicht beschäftigt.
Hallo Michael,
ich hab mich deiner Fragestellung mal angenommen und etwas rumprobiert.
Dazu habe ich ein Excel-File gespeichert, an dem ich deiner Lösung hoffentlich etwas näher gekommen bin.
Vielleicht kannst du mir ja deine Mail-Adresse an [email protected] schicken. Dann schick ich dir die Datei.
Gruss
Hi ghjweber,
das hört sich ja schon mal vielversprechend an. Meine Frage ist nun wie ich diese ermittelte letze Zelle in meine Formal bekomme?
Range(„B47“).AutoFill Destination:=Range(„B47:B50“) ', Type:=xlFillDefault
Wie ersetze ich ‚B50‘ mit Deiner letzen Zelle? Vorallem wenn sie auch noch in einem anderen Tabellenblatt ist?
Gruß
Michael
Guten Abend!
Ich bin noch bis Sonntag verhindert, werde dann aber schauen ob ich weiterhelfen kann.
Sie können mir gerne die betreffende Datei oder einen Link zu ihr schicken.
Beste Grüße,
Marcel Hünninghaus
Hey,
Sorry bin zur Zeit auf ner Mini-Weltreise und kann nicht helfen.
Gruss
Christian
Tut mir leid deine Frage nicht schon vorher beantwortet zu haben, aber ich benutze zur Zeit kein Excel
Wollte das noch mitgeteilt haben…
Grüße Mark
Kann leider nicht weiterhelfen