Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
980to984
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
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel mit VBA Anpassen

Formel mit VBA Anpassen
06.06.2008 12:46:00
Toby
Hallo zusammen
ich hoffe mir kann jemand weiterhelfen!
ich möchte mit einem Makro eine Formel in einer Zelle Anpassen!
zwar möchte ich mit einem Makro Zellen hinzufügen und auch wieder entfernen.
=A4+A7+A9
wenn ich auf A10 bin und das makro laufe lasse soll A10 hinzugefügt werden
=A4+A7+A9+A10
und wenn ich auf A4 bin mit einem andern Makro entfernen
=A7+A9+A10
ich hoffe ihr versteht was ich möchte! ;-)
mfg Toby

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel mit VBA Anpassen
06.06.2008 12:54:58
Rudi
Hallo,
nur Additionen oder doch was komplexeres?
Gruß
Rudi

AW: Formel mit VBA Anpassen
06.06.2008 12:57:12
Toby
Hi
nur Addition

AW: Formel mit VBA Anpassen
06.06.2008 13:18:00
Rudi
Hallo,
die Formel in A1:

Sub ZelleRein()
Dim strFormel As String, strCell As String
strFormel = Range("A1").FormulaLocal
strCell = ActiveCell.Address(0, 0)
If strFormel = "" Then
strFormel = "=" & strCell
Else
strFormel = strFormel & "+" & strCell
End If
Range("A1").FormulaLocal = strFormel
End Sub




Sub ZelleRaus()
Dim strFormel As String, strCell As String, iPos As Integer
strFormel = Range("A1").FormulaLocal
strCell = ActiveCell.Address(0, 0)
iPos = InStr(strFormel, strCell)
If iPos > 2 Then strCell = "+" & strCell
strFormel = Replace(strFormel, strCell, "")
Range("A1").FormulaLocal = strFormel
End Sub


Gruß
Rudi

Anzeige
AW: Formel mit VBA Anpassen
06.06.2008 13:36:00
Toby
Vielen Dank
funktioniert genau so wie ich mir das vorgestellt habe ;-)
Gruss und schönes Weekend

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige