Office: (Office 2013) VBA-Zeilen zählen und weiter verwenden

Liebe Forumsgemeinde, ich habe für einen Vba-Anfänger wie mich mal wieder ein Problem zu lösen.

In tbl_2 brauche ich als Variable1 die Anzahl der gefüllten Zeilen aus tbl_1 ab Range ("A10") bis zur letzten befüllten Zeile. Leer Zellen in Spalte A können vorkommen und müssen mitberechnet werden.
In tbl_2 sollen dann die in Zeile 9 vorkommenden Formeln so manchmal nach unten kopiert werden wie Variable1.

Kann mir jemand helfen?

:)

 

Moin Thomas,

wenn ich dich richtig verstanden habe, dann z.B. so:
Code:

 

Danke Dir Dirk

Es funktioniert zum Teil!
Es werden nicht alle Formeln in Zeile 9 nach unten kopiert, nur diese in Spalte A. Wie muss ich das ergänzen?

Diese Codezeile verstehe ich nicht komplett:
.Range("A9:A" & varTb_1 + 9).FillDown

Was bedeutet zB. + 9).FillDown??

 

Moin Thomas,
Code:

ermittelt die letzte befüllte Zeile in Spalte A
Da du die "gefüllten" Zeilen ab A10 zählen möchtest, habe ich von dem Wert 10 abgezogen
Beispiel:
letzte gefüllte Zelle in Spalte A ist A30, dann hat die Variable varTB_1 den Wert 20 (30-10)

Code:

Hier wird die Formel aus A9 bis A29 kopiert. (Wert 20 aus der Variablen und + 9, weil du ja in Zeile 9 anfängst.
Wenn du jetzt die Formeln aus den Spalten A bis E kopieren möchtest, einfach
die Formel anpassen.
Code:

Ich hoffe ich konnte es dir einigermaßen erklären *Smilie ... wenn nicht, einfach fragen *wink.gif*

 

Hallo
Danke für Deine Hilfe Mücke.
Habe Deinen Code angepasst und funktioniert jetzt.
Acht aber nicht auf Spalten und Zeilen, wurden von mir angepasst!
Code:

Weshalb musste ich die Tabelle "Name" Bestellungen angeben der für den Benutzer sichtbar ist und nicht den "(Name) der intern benutzt wird?
Kann ich den Code so anpassen das ich mit den internen (Name)n arbeiten kann?

 

Moin Thomas,

Ich habe die Bezeichnungen von DIR aus #1 genommen *wink.gif*

Auch hier kann ich mich nur wiederholen ... wie wäre es mit (D)einer Beispielmappe *Smilie

 

Moin Thomas,

die Werte 2 und 1 bitte für dich anpassen.
Code:

 

Hallo Dirk

Habe die Musterdatei angefügt.

Habe es unterlassen den Code anzupassen:
Sub AA_Saegeliste()

Call sortieren_Werkstatt_Laenge
Call thomas
Call ZeilenhoeheAnpassen
Call Makro1_2
Call Wertgruppe_unterstreichen

End Sub

 

Wenn der Benutzer die Tabellebblätter verschiebt stimmen die Codes nicht mehr.
Es werden falsche Tabellen herangezogen!
Bei mir heissen sie tbl_1 für Bestellungen und tbl_2 für Griffe sägen.

 

Moin Thomas,

ok, werde ich mir ansehen.
Melde mich dann wieder ... bis später *wink.gif*

 

Moin Thomas,

habe mal alles in Sub BeispielThomas() untereinander geschrieben und teilweise etwas angepasst.
Ich hoffe ich hab nichts vergessen *biggrin.gif*
Wenn noch Fragen offen sind, fragen *wink.gif* komme aber morgen erst wieder dazu, hier vorbei zu schauen *wink.gif*

Viel Spaß!

 

Hallo Dirk

Habe Deine Musterdatei geprüft. Ist kürzer und schnell.
Meine unwesentliche Änderung am Code habe ich darin beschrieben.
Zum den Code halbrichtig zu starten muss ich mit dem Cursor in tbl_2 sein. Nach dem Starten macht er mir zuerst nur eine halbrichtige Liste!
Starte ich danach nochmals den Code, ohne eine Änderung gemacht zu haben, kommt die richtige Darstellung.
-Kannst Du den Code so anpassen dass ich diesen von tbl_1 starten kann?
-Kannst Du das zweimalige Anstossen des Codes beseitigen?
Ich lade Dir die geänderte Datei 2 gleich hoch. Habe die Ausgangstabelle noch mit längerem Text welcher umbrochen werden muss, und wird, ergänzt.

Später probiere ich dann noch mittels Button in tbl_1 den Code zu starten. Soll für mich die nächste Lehrstunde geben.

Möchte mich ganz herzlich für Deine geleisteten Arbeiten bedanken.

 

Moin Thomas,

anbei die angepasste Beispielmappe zurück.
Da fehlten noch die ein oder anderen . (Punkte), sorry ... sollte jetzt laufen *Smilie

Den Butten habe ich jetzt nicht mit eingebaut *wink.gif*

 

Hallo Dirk

Habs eben probiert.
Klappt super.*Smilie
Besten Dank.