Makro funktioniert nicht mehr

[ari-2001]

  cleverexcelforum.xlsm (Größe: 40,89 KB / Downloads: 15) Hallo,

ich habe in angehängter Datei ein Makro, dass in Spalte 13 nach den Nummern schaut und wenn ein Treffer dabei ist,
in Spalte 14 den Namen eintragen soll.

Bisher funktionierte das Makro immer einwandfrei, aber nun bekomme ich immer eine Meldung, dass die Typen unverträglich sind.
Das Blatt muss genauso aufgebaut sein, wie es ist und bisher funktionierte es immer. Ich frage mich, warum diese Fehlermeldung auf einmal kommt.

Kann mir da eventuell jemand weiterhelfen?

Der Fehler tritt am Ende des Makro an dieser Stelle auf:

Sheets("Ergebnis").Cells(1).CurrentRegion.Columns(14) = Application.Index(Werte, , 14)


Viele Grüße und besten Dank im Voraus.
Andreas

[Klaus-Dieter]

Hallo Andreas,

bei mir läuft es ohne Fehler durch.

[ari-2001]

Hallo Klaus-Dieter,

bei mir lief es auch, auf einmal kommt immer diese Fehlermeldung.
Kann es an meinem Excel liegen?
Ich bin ziemlich ratlos.

Gruß
Andreas

[Der Steuerfuzzi]

Hallo Andreas,

welche Excel-Version verwendest Du? Hast Du es auch mit dieser Beispieltabelle probiert? Welcher Fehler wird angezeigt (genauer Fehlertext)?

[ari-2001]

Hallo Michael,

ja, ich habe genau die Tabelle benutzt, die ich gepostet habe.

Auf dem PC hier ist Office 2016 standard, zu Hause habe ich ein 2019ér, da funkttionierte es bisher immer.

Als Meldung kommt:

Laufzeitfehler "13"
Typen unverträglich

und im Makro wird diese Zeile gemarkert:

Sheets("Ergebnis").Cells(1).CurrentRegion.Columns(14) = Application.Index(Werte, , 14)


Läuft das Makro denn bei Dir?

Viele Grüße
Andreas

[Der Steuerfuzzi]

Bei mir läuft es ohne Probleme mit Excel 2019. Sollte mit Excel 2016 eigentlich auch kein Problem darstellen. Ist aber kein Mac, oder?

[ari-2001]

Hallo Michael,

nein, ein ganz normaler Windows 10 PC.

Zu Hause läuft es, aber nicht an meinem Firmen-PC.

Ich verstehe es einfach nicht.

Habe ich in dem Aufbau des Makros denn einen Fehler?

Viele Grüße
Andreas

[Der Steuerfuzzi]

Probier mal das Makro:

Code:

Sub Unternehmer()
Dim Werte As Variant
Dim Ergebnis() As Variant
With Sheets("Ergebnis")
    Werte = .Range(.Cells(5, 13), .Cells(Rows.Count, 13).End(xlUp)).Value
End With
ReDim Ergebnis(1 To UBound(Werte), 1 To 1)
For j = 1 To UBound(Werte, 1) 'Zeile ab der das Makro beginnt
    Zahl = Left(Werte(j, 1), 3) 'Spalte mit den Dienstnummern
    If IsNumeric(Zahl) Then
        Select Case Zahl
            Case 951
                Ergebnis(j, 1) = "Unternehmer 1"
            Case 952
                Ergebnis(j, 1) = "Unternehmer 2"
            Case 953
                Ergebnis(j, 1) = "Unternehmer 3"
            Case 954
                Ergebnis(j, 1) = "Unternehmer 4"
            Case 956
                Ergebnis(j, 1) = "Unternehmer 5"
            Case 959
                Ergebnis(j, 1) = "Unternehmer 6"
            Case 960
                Ergebnis(j, 1) = "Unternehmer 7"
            Case 961
                Ergebnis(j, 1) = "Unternehmer 8"
            Case 962
                Ergebnis(j, 1) = "Unternehmer 9"
            Case 964
                Ergebnis(j, 1) = "Unternehmer 10"
            Case 343
                Ergebnis(j, 1) = "Unternehmer 11"
        End Select
    End If
Next j
Sheets("Ergebnis").Cells(5, 14).Resize(UBound(Ergebnis), 1).Value = Ergebnis

End Sub

Theoretisch könnte man den Code noch vereinfachen, wenn man die Zuordnung der "Unternehmen" zu den Nummern in die Tabelle schreibt, in eine Variable einliest und dann ggf. auswertet.

[snb]

Code:

Sub M_snb()
  On Error Resume Next

  With Sheets("Ergebnis").Cells(1).CurrentRegion
    sn = .Columns(13)
    sp = .Columns(14)

    For j = 5 To UBound(sn)
      sp(j, 1) = "Unternehmer " & Application.Match(sn(j, 1) \ 10 ^ 3 Mod 100, Array(51, 52, 53, 54, 56, 59, 60, 61, 62, 64, 43), 0)
    Next
   
    .Columns(14) = sp
  End With
End Sub

oder

Code:

Sub M_snb()
  With Sheets("Ergebnis").Cells(1).CurrentRegion
    sn = .Columns(13)
    sp = .Columns(14)

    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) = "Unternehmer " & y
    Next
    
     .Columns(14) = sp
  End With
End Sub

[Der Steuerfuzzi]

@snb: Super kurz, nicht leicht verständlich und wahrscheinlich am Ziel vorbei, denn ich gehe mal davon aus, dass die Bezeichungen nur Beispiele waren und in der echten Tabelle dann Unternehmensnamen verwendet werden. Damit Wird Deine Match-Lösung nicht funktionieren.