Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
172to176
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
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro modifizieren

Makro modifizieren
25.10.2002 10:17:31
ewald
Hallo zusammen,

habe ein Makro geschrieben das man sicherlich modifizieren kann.
Kann mir jemand das Makro mit einer Schleife vereinfachen?

Sub Summe()
Dim i As Range
Set i = Cells(Rows.Count, 2).End(xlUp)
With i.Offset(1, 0)
.Formula = "=sum(B4:B" & i.Row & ")"
End With
Range("C15").Select
With Selection
.Formula = "=sum(C4:C" & i.Row & ")"
End With
Range("D15").Select
With Selection
.Formula = "=sum(D4:D" & i.Row & ")"
End With
Range("E15").Select
With Selection
.Formula = "=sum(E4:E" & i.Row & ")"
End With
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro modifizieren
25.10.2002 10:54:11
Hajo_Zi
Hallo Ewald

wenn Du nur eine nweisung auf der aktuellen Tabelle machts brauchst Du kein With und in VBA kann auf select und ähnliches verzichtet werden.

Gruß Hajo

Re: Makro modifizieren
25.10.2002 11:20:31
gerhard w
Hallo Ewald,

versuchs mal mit

Sub Summe()
Dim i&
i = Cells(Rows.Count, 2).End(xlUp).Row
Range("B" & i + 1 & ",C12:E12").Formula = "=SUM(B$4:B$" & i & ")"
End Sub

Gruß Gerhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige