Problem bei VBA & freigegebenen Arbeitsmappen

Schmitty · 2013-04-16T09:14:11+00:00

Das man in seinem alten Beitrag nicht weiterschreiben kann... Hier ein link zum alten Beitrag: https://www.herber.de/forum/archiv/1304to1308/t1307713.htm @ All: Danke schon mal für Eure Hilfe in dem oben genanten Beitrag. @ Klaus M.vdT.: Ich hatte das VBA hier aus dem Forum von einem User bekommen, da meine eigenen VBA-Kenntnisse noch sehr rudimentär... Ich habe dein VBA mal versucht, bekomme in der Zelle aber immer den Fehler #WERT!. Ich spreche das VBA mit der Formel an: =Menge(ADRESSE(ZEILE();VERGLEICH($Z$4;$A$4:$X$4;0))) Leider kann ich die original Excel-Datei nicht hochladen, da es sich um eine umfangreiche Kundendatei handelt. @ All: Hat sonst noch jemand eine Idee? Gruß Christian

Hi Christian,
ops, bei Kunde 1 gibt es einen kleinen Logikfehler im Script. Den habe ich mal ganz unsauber rausgeworfen (den Fehler, nicht den Kunden).
Die Menge "0" hab ich auch eingebaut, wie gewünscht.
Anbei nur das Script (copy - paste über den alten Code) statt die Datei nochmal hochzuladen

Sub OhneFunctionMenge()
Dim iColJahr As Integer
Dim iColMenge As Integer
Dim lRowF As Long
Dim lRowL As Long
Dim l As Long
Dim arrTeil
Dim N As Integer
Dim rFilter As Range
iColMenge = WorksheetFunction.Match("Gesamtmenge der Lieferungen", Range("A5").EntireRow, False) _
iColJahr = WorksheetFunction.Match(Cells(4, iColMenge).Value, Range("A4").EntireRow, False)
lRowF = 6
lRowL = Cells(Rows.Count, 2).End(xlUp).Row
For Each rFilter In Range(Cells(lRowF, iColMenge), Cells(lRowL, iColMenge)).SpecialCells( _
xlCellTypeVisible)
'Bei "nix" einen Nullwert eintragen (vorherige Version: löschen)
Cells(rFilter.Row, iColMenge).Value = 0 '.clearcontents
arrTeil = Split(Cells(rFilter.Row, iColJahr).Value, "-")
For N = 1 To UBound(arrTeil) Step 2
Cells(rFilter.Row, iColMenge).Value = Cells(rFilter.Row, iColMenge).Value + CSng(arrTeil( _
N))
Next N
'Endlosschleife bei Kunde 1 verhindern (Zeile 6 bis 6 wird nie erreicht)
If lRowL = 6 Then Exit For
Next rFilter
End Sub

Grüße,
Klaus M.vdT.

Hi,
ich habe keine Idee, warum er bei Kunde "1" die Schleife nicht korrekt durchläuft ...
aber SO sollte es gehen, auch wenn ich nicht verstehe weshalb :-)

Sub OhneFunctionMenge()
Dim iColJahr As Integer
Dim iColMenge As Integer
Dim lRowF As Long
Dim lRowL As Long
Dim l As Long
Dim arrTeil
Dim N As Integer
Dim rFilter As Range
iColMenge = WorksheetFunction.Match("Gesamtmenge der Lieferungen", Range("A5").EntireRow, False) _
iColJahr = WorksheetFunction.Match(Cells(4, iColMenge).Value, Range("A4").EntireRow, False)
lRowF = 6
lRowL = Cells(Rows.Count, 2).End(xlUp).Row
If lRowL = lRowF Then
arrTeil = Split(Cells(lRowF, iColJahr).Value, "-")
For N = 1 To UBound(arrTeil) Step 2
Cells(lRowF, iColMenge).Value = Cells(lRowF, iColMenge).Value + CSng(arrTeil(N))
Next N
Else
For Each rFilter In Range(Cells(lRowF, iColMenge), Cells(lRowL, iColMenge)).SpecialCells( _
xlCellTypeVisible)
'Bei "nix" einen Nullwert eintragen (vorherige Version: löschen)
Cells(rFilter.Row, iColMenge).Value = 0 '.clearcontents
arrTeil = Split(Cells(rFilter.Row, iColJahr).Value, "-")
For N = 1 To UBound(arrTeil) Step 2
Cells(rFilter.Row, iColMenge).Value = Cells(rFilter.Row, iColMenge).Value + CSng( _
arrTeil(N))
Next N
Next rFilter
End If
End Sub

Problem bei VBA & freigegebenen Arbeitsmappen

Forumthread: Problem bei VBA & freigegebenen Arbeitsmappen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Problem bei VBA & freigegebenen Arbeitsmappen

Forumthread: Problem bei VBA & freigegebenen Arbeitsmappen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread