Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe bei Makro ...

Hilfe bei Makro ...
04.11.2005 16:34:51
Sonnenpeter
Hallo zusammen,
ich benötige mal wieder hilfe ;-(
Habe mir da mal wieder ein Makro umgestrickt, funzt leider aber nicht ;-(((



Sub Gesamt_ergänzen()
Dim finde
Dim found As Range
Dim firstaddress As String
Dim ZF1
finde = "Gesamt:"
If finde = "" Then Exit Sub
Set found = Cells.Find(What:=finde, LookIn:=xlValues, LookAt _
:=xlPart, MatchCase:=False)
If Not found Is Nothing Then
firstaddress = found.Address
'""""""""Ab hier hänge ich ....."""""""""""
Im Grunde soll die gefunden Zelle um eine Spalte versetzt werden und dort die Formel = "=SUM(R[-4]C:R[-1]C)" eingesetzt werden.
Do
ZF1 = Right(found.Address, 2)
Range("F" & ZF1).FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
'Cells(2, -4).FormulaR1C1 = "=R[-1]C" ''Machfett found, finde
Set found = Cells.FindNext(found)
Loop While Not found Is Nothing And found.Address <> firstaddress
End If
End Sub

Wie stelle ich das am besten an? es sind über 6000 Zeilen zu durchsuchen und die Formel einzutragen.
Gruß Sonnenpeter

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

Betreff
Datum
Anwender
Anzeige
verwende: found.Offset(0,1).FormulaR1C1=
04.11.2005 16:40:16
gordon
Gruß
gordon
Ich Danke Dir :-))))))))))
04.11.2005 16:48:35
Sonnenpeter
Gruß Sonnenpeter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige