Makro funktioniert nicht mehr

[snb]

@Steuer

Dann:
- ist die Frage nicht gut gestellt.
- ist die Match nur eine Zwischenstufe und funktioniert ausserordentlich.

[ari-2001]

Hallo Michael,
hallo SNB,

das Makro von Michael läuft auch auf meinem PC, vielen Dank dafür.
Vorteil ist, dass ich die Unternehmer (es sind 22 Stück) jeweils in die cases packen kann.

Das von SNB ist auch cool, allerdings benötige ich (wie richtig vermutet) die Namen der Unternehmer.


Vielen Dank dafür, obwohl es mir ein Rätsel bleibt, warum mein eigenes Makro auf dem PC zu Hause läuft aber nicht
auf dem Rechner in der Firma.

Vielen Dank für die Hilfe.

Viele Grüße und ein sonniges Wochenende.

Andreas

[snb]

Einfach so:

Code:

For j = 5 To UBound(sn)
  y = InStr("____51_52_53_54_56_59_60_61_62_64_43_", "_" & sn(j, 1) \ 10 ^ 3 Mod 100 & "_") \ 3
  If y > 0 Then sp(j, 1) = Array("Steuer", "snb", "Lupo", "usw.")(y)
Next

oder

Code:

For j = 5 To UBound(sn)
  y = InStr("____51_52_53_54_56_59_60_61_62_64_43_", "_" & sn(j, 1) \ 10 ^ 3 Mod 100 & "_") \ 3
  If y > 0 Then sp(j, 1) = Sheet1.Range("A1:A22")(y)
Next

[Belivia6]

Bei mir funktioniert es eigentlich. Sind dir andere Fehlerquellen bewusst?