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

Laufzeitfehler 13

Laufzeitfehler 13
27.11.2004 13:29:21
Alois Gruber
Hallo
Ich habe mir da aus mehreren Makros etwas zusammengebaut.
Leider erhalte ich den Fehler Laufzeitfehler 13 (Typen unverträglich) wenn ich den letzten Satz (Cells(z, 6).FormulaLocal = "=SUMME" & "(" & Variable + 1 & ":" & Ende & ")"
)dabei habe. Sonst passt das Makro.
Wo könnte der Fehler liegen?
Bitte um eure Hilfe

Option Explicit

Sub Summierer()
Dim z As Long
z = 1
Columns("F:F").Select
Selection.ClearContents
Dim lgZeile As Long
lgZeile = 2
Do Until IsEmpty(Cells(lgZeile, 2))
Cells(lgZeile, 5).FormulaLocal = "=B" & lgZeile
lgZeile = lgZeile + 1
Loop
Dim Variable
Dim Ende
[a1].Sort Key1:=[A2], Order1:=xlAscending, Header:=xlYes
z = 1
Variable = Cells(z, 3).Address
Ende = Cells(z, 3).Address
Do While Not IsEmpty(Cells(z + 1, 1))
If Left(Cells(z, 1), 4) = Left(Cells(z + 1, 1), 4) Then
z = z + 1
Else
Ende = Cells(z, 3).Address
Cells(z, 6).FormulaLocal = "=SUMME" & "(" & Variable & ":" & Ende & ")"
Variable = Cells(z + 1, 3).Address
z = z + 1
End If
Loop
Cells([a65536].End(xlUp).Row + 0, 5).Activate
Ende = Cells(ActiveCell.Row, 3).Address
Cells(z, 6).FormulaLocal = "=SUMME" & "(" & Variable + 1 & ":" & Ende & ")"
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 13
27.11.2004 13:35:00
Josef Ehrensberger
Hallo Alois!
"Variable" ist ein String und du schreibst " & Variable + 1 & !
Gruß Sepp
AW: Laufzeitfehler 13
27.11.2004 13:39:07
Josef Ehrensberger
Hallo nochmal!
Das muss ungefähr so ausehen!

Sub Summierer()
Dim z As Long
Dim Variable As String
Dim Ende As String
z = 1
Columns("F:F").Select
Selection.ClearContents
Dim lgZeile As Long
lgZeile = 2
Do Until IsEmpty(Cells(lgZeile, 2))
Cells(lgZeile, 5).FormulaLocal = "=B" & lgZeile
lgZeile = lgZeile + 1
Loop
[a1].Sort Key1:=[A2], Order1:=xlAscending, Header:=xlYes
z = 1
Variable = Cells(z, 3).Address
Ende = Cells(z, 3).Address
Do While Not IsEmpty(Cells(z + 1, 1))
If Left(Cells(z, 1), 4) = Left(Cells(z + 1, 1), 4) Then
z = z + 1
Else
Ende = Cells(z, 3).Address
Cells(z, 6).FormulaLocal = "=SUMME" & "(" & Variable & ":" & Ende & ")"
Variable = Cells(z + 1, 3).Address
z = z + 1
End If
Loop
Cells([a65536].End(xlUp).Row + 0, 5).Activate
Variable = Cells(z + 1, 3).Address
Ende = Cells(ActiveCell.Row, 3).Address
Cells(z, 6).FormulaLocal = "=SUMME" & "(" & Variable & ":" & Ende & ")"
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Sepp
Anzeige
AW: Laufzeitfehler 13
27.11.2004 15:09:29
Alois Gruber
Vielen Danke für den Hinweis, jetzt funktioniert es.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige