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

Hilfe bei VBA

Hilfe bei VBA
02.06.2007 19:04:00
Georg
Hallo zusammen,
ich habe meine Tabelle um etliche Spalten erweitert, nun komme ich mit zwei Formeln (wenn/dann und sverweis) an die Grenzen von Excel. Ist es möglich diese Formeln in ein Makro, welches automatisch die Daten aktualisiert, umzuwandeln?
Die entsprechenden Spalten habe ich rot markiert.
Vielen dank für Eure Hilfe!!
Gruß Georg
https://www.herber.de/bbs/user/42975.xls

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei VBA
02.06.2007 19:11:00
Matthias
Hallo Georg,
welche Grenzen von Excel meinst du?
Gruß Matthias

AW: Hilfe bei VBA
02.06.2007 19:20:00
Georg
Hallo Matthias,
ich meine die Anzahl der WENN/DANN Funktionen in einer Formel.
Gruß Georg

AW: Hilfe bei VBA
02.06.2007 20:09:31
Matthias
Hallo Georg,
die Wenns sind ja nicht verschachtelt, es handelt sich eher um eine Begrenzung der maximalen Länge einer Formel.
Mit untenstehendem Makro trägst du die Teilsummen in die Spalten rechts der Tabelle ein und die Summenformel in die Spalten CT und CU. Das ganze geschieht aber nur in Zeile 7 (in Zeile 6 nocht die Shop-Beschriftung), aber das Ziehen der Formeln nach unten dürfte ja kein Problem darstellen.
Es tritt bei mir noch ein !BEZUG-Fehler auf, der aber wahrscheinlich an derUnvollständigkeit deiner hochgeladenen Beispieltabelle liegt.
Der Code:

Sub FormelnEintragen()
Dim i As Integer, x As Integer
Dim f As String
For i = 1 To 46
x = 2 * i + 1
f = "=" & "IF(" & spB(x) & "5


Gruß Matthias

Anzeige
AW: Hilfe bei VBA
02.06.2007 20:22:00
Georg
Hallo Matthias,
vielen Dank für die schnelle Antwort.
Ich habe nun ein neues Makro erstellt und Deinen Code eingefügt. Beim Ausführen des Makros bekomme ich folgende Fehlermeldung:
Fehler beim Kompilieren:
Sub oder Funktion nicht definiert
In Zeile 7 ist der Befehl "spB" blau hinterlegt.
Kannst Du bitte prüfen woran das liegt?
Nochmals vielen DANK
Gruß Georg

AW: Hilfe bei VBA
02.06.2007 20:25:00
Matthias
Hallo Georg,
ach Sorry, diesen Codeteil hab ich vergessen, bitte noch ergänzen (ins gleiche Modul):

Function spB(sp As Integer) As String
Dim tmp As String
tmp = Cells(1, sp).EntireColumn.Address(0, 0)
spB = Left(tmp, InStr(tmp, ":") - 1)
End Function


Gruß Matthias

Anzeige
AW: Hilfe bei VBA
02.06.2007 20:34:23
Georg
Hallo Matthias,
muss ich den zusätzlichen Code, so wie er ist, an eine bestimmte Stelle einfügen?
Gruß Georg
Am besten, du postest den kompletten Code.

AW: Hilfe bei VBA
02.06.2007 20:54:00
Matthias
Hallo Georg,
den einen unter den anderen, Reihenfolge ist egal. Du mustt dann das Makro FormelEinfügen starten.

Sub ...()
End Sub
Function()
End Function


Gruß Matthias

AW: Hilfe bei VBA
02.06.2007 21:20:00
Georg
Hallo Matthias,
hat super funktioniert!!!!!!!!!!
Vielen Dank.
Gurß Georg

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige