Office: Ubound + Laufzeitfehler 9

Hauptnewb · 22. Juli 2014

Hallo xlph,

wie gesagt: ich habe das Array hier für die Übersicht umbennant. Dabei war mir nicht klar, dass dieser Name unzulässig ist. Sorry wenn ich euch verwirrt habe *frown.gif*

Gruß

EarlFred · 22. Juli 2014

Hallo,

war schon klar, was der Inhalt des Arrays sein würde. Aber auch dieses Array mit den Zeilennummern ist vermutlich nur ein Zwischenschritt.
Was wäre dann also der nächste? Vielleicht kann man das gleich mit optimieren.

Grüße
EarlFred

Hauptnewb · 22. Juli 2014

Ein weiterer Schritt wäre, dass ich die gefundenen Artikelnummern durchnummerieren muss. D.h. Artikel 123 wurde 5 mal gefunden und ich möchte dann in Spalte B 123-1, 123-2, 123-3 ... stehen haben und nicht einfach nur das 123.

xlph · 22. Juli 2014

Hallo,

das Ergebnis wird in Spalte C ausgegeben.

Code:

Public Sub ArtieklNummerVergleichenUndIndizieren_xlph()

Dim ArtikelNrn As Variant
Dim IndexAN As Long

Dim oMatch As Object
Dim KeyM As Variant

Set oMatch = CreateObject("scripting.dictionary")

With Tabelle1

ArtikelNrn = .Range("A1").CurrentRegion.Columns(1).Value

For IndexAN = LBound(ArtikelNrn) To UBound(ArtikelNrn)
If Not IsEmpty(ArtikelNrn(IndexAN, 1)) Then
oMatch(CStr(ArtikelNrn(IndexAN, 1))) = 0
End If
Next

ArtikelNrn = .Range("A1").CurrentRegion.Columns(2).Value

For IndexAN = LBound(ArtikelNrn) To UBound(ArtikelNrn)
If Not IsEmpty(ArtikelNrn(IndexAN, 1)) Then
If oMatch.Exists(CStr(ArtikelNrn(IndexAN, 1))) Then
oMatch(CStr(ArtikelNrn(IndexAN, 1))) = oMatch(CStr(ArtikelNrn(IndexAN, 1))) + 1
ArtikelNrn(IndexAN, 1) = ArtikelNrn(IndexAN, 1) & "-" & oMatch(CStr(ArtikelNrn(IndexAN, 1)))
End If
End If
Next

With .Range("C1").Resize(UBound(ArtikelNrn))
'.NumberFormat = "@" ' TextFormat, sonst mögliche Umwandlung in ein Datum (Bsp. 12-1)
.Value = ArtikelNrn
End With

End With

Set oMatch = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Ubound + Laufzeitfehler 9

Ubound + Laufzeitfehler 9

Ubound + Laufzeitfehler 9

Ubound + Laufzeitfehler 9

Ubound + Laufzeitfehler 9 - Similar Threads - Ubound Laufzeitfehler

Bei Prüfung einer Anmeldefunktion erhalte ich Laufzeitfehler 3075

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

UBound-Funktion

VBA - Mehrdimensionale Array - Wie L & Ubound jeder Dimension auslesen