Absturz nach Verbinden von Zellen

Hallo zusammen,
ich habe folgendes Problem: Über VBA habe ich eine Funktion erstellt, die in Excel als Formel verwendet wird (Code siehe unten).
Wenn ich jetzt Zellen in meiner Arbeitsmappe verbinden möchte, stürzt Excel ab ("Microsoft Excel funktioniert nicht mehr").
Ich habe folgendes versucht:
- Neue Mappe erstellen & Zellen verbinden --> funktioniert
- Neue Mappe erstellen, Code in Modul 1 eintragen & Zellen verbinden --> funktioniert
- Neue Mappe erstellen, Code in Modul 1 eintragen, Formel z.B. in Zelle A1 verwenden & Zellen verbinden --> Absturz
Selbst, wenn meine Mappe geöffnet ist und ich eine zweite Mappe öffne, in der ich Zellen verbinde stürzt Excel komplett ab.
Hin und wieder startet Excel neu und kann die Daten wiederherstellen. Das geht aber nicht immer.
Hier der Code der Funktion:
Public Function FettSumme(SuchBereich As Range) Dim Zelle As Object Application.Volatile For Each Zelle In SuchBereich If Zelle.Font.Bold = True Then FettSumme = FettSumme + Cells(Zelle.Row, Application.Caller.Column) End If Next End Function Ich bin Dankbar für jede Unterstützung!
Lieber Gruß
Alex

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function FettSumme(SuchBereich As Range) Dim Zelle As Object Application.Volatile For Each Zelle In SuchBereich If Zelle.Font.Bold = True Then FettSumme = FettSumme + Zelle.Value End If Next End Function

Vielen Dank für die schnelle Antwort!
Ich habe deine Funktion ausprobiert und bekomme den gleichen Fehler.
Hier ist ein Beispiel, das meine Function erklärt:
https://www.herber.de/bbs/user/84931.xls
In Spalte A sind verschiedene Projekte, die einzelne Arbeitsschritte enthalten können. Die Fettsumme in C14 summiert, wenn in Spalte A ein Text fett geschrieben wurde den zugehörigen Wert aus Spalte C.
Mir ist gerade aufgefallen, dass ich den Fehler beim Verbinden von Zellen auch bei folgenden selbst erstellten Funktionen bekomme:

Public Function LfdNr(SuchBereich As Range) As String
Dim i As Integer
Dim Zelle As Object
Application.Volatile
LfdNr = -1
For Each Zelle In SuchBereich
If Zelle.Font.Bold = True Then
LfdNr = LfdNr + 1
End If
If Zelle.Row = Application.Caller.Row Then Exit For
Next
If Cells(Application.Caller.Row, Application.Caller.Column + 1).Font.Bold  True Then
i = 0
Do
i = i + 1
Loop Until Cells(Application.Caller.Row - i, Application.Caller.Column + 1).Font.Bold =  _
True
LfdNr = LfdNr & "." & i
End If
End Function

BeispielDatei:
https://www.herber.de/bbs/user/84932.xls
und:

Public Function Abgeschlossen_am(SuchBereich As Range)
Dim Zelle As Object
Application.Volatile
For Each Zelle In SuchBereich
If Zelle.Font.Bold = True Then
If Cells(Zelle.Row, Application.Caller.Column).Value  "" Then
If Abgeschlossen_am = "" Or Abgeschlossen_am

Datei:
https://www.herber.de/bbs/user/84933.xls
Möchte ich die Zellen über VBA verbinden (.mergecells=true) kommt folgender Fehler:

Laufzeitfehler '-2147417848 (80010108)':
Automatisierungsfehler
Das aufgerufene Objekt wurde von den Clients getrennt.

Leider kann ich auf das Verbinden von Zellen nicht verzichten.
Lieber Gruß

Beliebteste Forumthreads (12 Monate)

	A	B	C
3	Projekt		Arbeitszeit
4
5	Projekt 1		6 h
6	Arbeitsschritt 1		1 h
7	Arbeitsschritt 2		2 h
8	Arbeitsschritt 3		3 h
9
10	Projekt 2		5 h
11
12	Projekt 3		9 h
13
14	Summe:		20 h

	A	B	C
3	0	Projekte Gesamt
4			in A steht immernoch:
5	1	Projekt 1	1
6		Arbeitsschritt 1	1.1
7		Arbeitsschritt 2	1.2
8		Arbeitsschritt 3	1.3
9
10	2	Projekt 2
11
12	3	Projekt 3

	A	B	C	D	E	F	G
3	Projekt		Arbeitszeit
4					im Direktfenster getestet
5	Projekt 1		6 h		Tabelle1.Range("E5:F8").Merge
6	Arbeitsschritt 1		1 h				Verbunden
7	Arbeitsschritt 2		2 h				Verbunden
8	Arbeitsschritt 3		3 h
9
10	Projekt 2		5 h
11
12	Projekt 3		9 h
13
14	Summe:		20 h

	A	B	C	D
4	Projekt 1	20.01.2013
5				in A erhaltene Werte
6	Tätigkeit 1	19.01.2013		Tätigkeit 1
7		01.01.2013		Arbeitsschritt 1
8		12.01.2013		Arbeitsschritt 2
9		19.01.2013		Arbeitsschritt 3
10
11	Tätigkeit 2	10.01.2013
12
13	Tätigkeit 3	20.01.2013

Absturz nach Verbinden von Zellen

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread