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

Teilergebnis

Teilergebnis
24.01.2004 11:30:24
Walter
Guten Morgen,
habe eine kleine Farge:
Ich habe ein Makro womit ich in der Tabelle eine Zeile Anfüge.
Ich habe aber auch eine Formel in D2 stehen: =TEILERGEBNIS(3;C4:C200)
damit ch das Ergebnis/Anzahl sehen kann. Ich möchte das beim Anfügen der Zeile die Formel um 1 verlängert wird, beim Löschen die Formel um 1 verkürzt wird.
z.b. =TEILERGEBNIS(3;C4:C200)
beim Anfügen= =TEILERGEBNIS(3;C4:C201)
beim Löschen= =TEILERGEBNIS(3;C4:C199)
Aber wie ?
Gruss Walter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teilergebnis
24.01.2004 15:20:21
Jürgen Schaetzke
Hallo Walter,
In dem Makro zum Anfügen einer Zeile könntest du folgenden Code einfügen um den Range zu erweitern:
Dim wks As Worksheet
Dim Formel As String
Dim Var As Variant
Dim Adresse As Range
Set wks = ActiveSheet
Formel = wks.Range("D2").Formula
Var = VBA.Split(Formel, ":")
Set Adresse = wks.Range(VBA.Left(Var(1), vba.Len(Var(1)) - 1)).Cells(1, 1).Offset(1)
Var(1) = Adresse.Address & ")"
wks.Range("D2").Formula = vba.Join(Var, ":")
Für das Verkleinern des Bereiches könntest du im entsprechenden Makro den gleichen Code verwenden. Anstatt Offset(1) schreibst du dann Offset(-1).
Ciao Jürgen
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige