Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen auswählen per Makro

Zeilen auswählen per Makro
18.08.2005 10:31:31
Martin
Hallo zusammen,
ich habe eine Excel-Mappe mit mehreren Tabellenblättern, die unterschiedlich viele Zeilen haben.
Per Makro möchte nun in jedes Blatt in Spalte H eine Formel automatisch kopieren.
Die Formel soll aber nur soweit nach unten kopiert werden, wie die Zeilen in Spalte A gefüllt sind. Dies ist halt bei jedem Tabellenblatt unterschiedlich. Mal sind 300 Zeilen, mal eben 450 usw.
wie bekommen ich da hin. Wie sieht so eine Befehlszeile aus.
Danke für eure Hilfe.
Gruß
Martin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen auswählen per Makro
18.08.2005 12:31:33
harry
hi,
die letzte zeilennummer erhältst du so:
lZei = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
falls du es brauchst:
lSpa = Sheets("Tabelle1").Cells(1, Columns.Count).End(xlToLeft).Column
ist die letzte spalte
liebe grüße,
harry
AW: Zeilen auswählen per Makro
18.08.2005 12:33:03
Uduuh
Hallo,
etwa so:

Sub Formeln()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
With wks
.Range(.Cells(1, 1), .Cells(1, 1).End(xlDown)).Offset(0, 7).FormulaR1C1 = "=RC1+Rc2"
End With
Next
Application.ScreenUpdating = True
End Sub

Gruß aus’m Pott
Udo

Anzeige
AW: Zeilen auswählen per Makro
18.08.2005 12:33:22
IngGi
Hallo Martin,
so?

Sub Formel()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
Range("A65536").End(xlUp).Offset(1, 7).FormulaR1C1 = "=sum(r1c8:r[-1]c8)"
Next 'wks
End Sub
Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige