Office: (Office 2013) Spalten automatisch füllen mit Makro

hallo excel gemeinde!
mit makros beginne ich gerade einiges auszuprobieren. kann mir jemand mit einem makro für folgende kleinigkeit helfen.
ich habe in einer tabelle zw 40 000. 50 000 Zeilen. ich möchte in der spalte M eine Formel automatisch bis zur letzten befüllten zeile eintragen lassen (formel =I1-H1). ist also eine normale subtraktion. ich weiß nicht wie ich die letzte zeile mit einem makro ermitteln kann.
danke für eure hilfe

:)

 

Code:

 

hallo hajo!
recht herzlichen dank für deine hilfe.
habe dein makro eingefügt und um die formatierung [h] erweitert. ich hoffe das ist richtig so.

Sub kopierenformelpoels()
Dim LoLetze As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count) 'letzte zelle ermitteln
Range("r1:r" & LoLetzte).Formula = "=f1-e1"
Selection.NumberFormat = "[h]:mm:ss" ' format ändern
End Sub '

dazu habe ich jetzt noch eine frage.
Wenn ich jetzt am ende der spalte "r" eine summe haben möchte muss ich die formel nur dazusetzen? oder muss ich hier eine neue makro bauen?
und vielen dank für deine hilfe

 

der Code ist falsch da keine Selection, das ist in VBA zu 99,9 % nicht notwendig.
Mit meinem Code wird keine Summe gebildet. Das muss mit einer Extra Zeile gemacht werden.

 

hi hajo!

das ist falsch *entsetzt

hier mein neuer code. habe deinen code nur soweit geändert als das ich die spalten geändert habe und das format der spalte r auf stunden angepasst habe

Sub kopierenformelpoels()
Sheets("poels").Select
Columns("R:R").Select
Selection.NumberFormat = "[h]:mm:ss" ' format ändern
Dim LoLetze As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count) 'letzte zelle ermitteln
Range("r1:r" & LoLetzte).Formula = "=f1-e1"
Selection.NumberFormat = "[h]:mm:ss" ' format ändern
End Sub '

habe die versuchstabelle angehängt.

in der spalte r möchte ich eine summe bilden wenn alle stunden ausgefüllt sind. dannach soll diese summe durch die anzahl der zeilen (abzüglich der überschrift) geteilt werden. ich habe mir das recht einfach vorgestellt merke aber das ich keine ahnung habe wie ich das angehen soll.
vielleicht hast du eine idee.
lg
gerhard

 

Moin Gerhard
Hab deine Mappe nicht geoeffnet, aber laut beschreibung sollte das passen.
Code:

gruss hary

 

Der Dateiname sollte was mit dem Problem zu tun haben.
Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test..., Mappe…, Beispiel… wird eine vorhandene überschrieben.
Schaue hier, Dateiname im Beitrag
das ist nun das Word -Forum, das gilt hier aber auch.
Ich Antworte auf das was im Beitrag steht, es war nur die Frage ob richtig.
Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Online-Excel.de
Code:

 

Hallo Gerhard,

Muss es den VBA sein? das wäre mit einer Formel erledigt.
=SUMMENPRODUKT(F2:F60000-E2:E60000)/ANZAHL(E2:E60000)

 

lieber hajo, hary, chris!
habe eure Vorschläge für mein problem gerne entgegen genommen. von jedem etwas und mein problem ist gelöst. danke für eure hilfe.

hier meine ausführung

Sub kopierenformelpoels()
Dim LoLetze As Long
Sheets("poels").Select
Columns(18).NumberFormat = "[h]:mm:ss" ' format ändern
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count) 'letzte zelle ermitteln
Range("R" & LoLetzte + 1).FormulaLocal = "=SUMME(R2:R" & LoLetzte & ")" & "/" & LoLetzte - 1
End Sub '

@hajo danke für den link "select" ich verstehe das zwar immer noch nicht aber ich weiß jetzt wenigstens wo ich nachschauen muss.
ganz liebe grüße und vielen dank

 

hallo spezialisten!

ich habe doch noch eine frage zu dem vorliegenden thema.

wie halte ich nach der berechnung in der letzten zeile --->

Sub kopierenformelpoels()
Dim LoLetze As Long
Sheets("poels").Select
Columns(18).NumberFormat = "[h]:mm:ss" ' format ändern
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count) 'letzte zelle ermitteln
Range("R" & LoLetzte + 1).FormulaLocal = "=SUMME(R2:R" & LoLetzte & ")" & "/" & LoLetzte - 1
End Sub '

---> auch den cursor genau dort. meiner springt immer auf a1

danke im vorhinein für eure hilfe
lg
gerhard

 

hallo spezialisten!

ich habe doch noch eine frage zu dem vorliegenden thema.

wie halte ich nach der berechnung in der letzten zeile --->

Code:

---> auch den cursor genau dort. meiner springt immer auf a1

danke im vorhinein für eure hilfe
lg
gerhard

 

Hallo gerhard, Code:

 

hi hasso!
danke für die hilfe*Smilie
lg
gerhard