Registriert seit: 07.05.2020
Version(en): 2016
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
Registriert seit: 11.04.2014
Version(en): Office 365
Hallo Andreas,
bei mir läuft es ohne Fehler durch.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 07.05.2020
Version(en): 2016
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
Registriert seit: 11.03.2015
Version(en): mittlerweile meistens 2019
Hallo Andreas,
welche Excel-Version verwendest Du? Hast Du es auch mit dieser Beispieltabelle probiert? Welcher Fehler wird angezeigt (genauer Fehlertext)?
Gruß
Michael
Registriert seit: 07.05.2020
Version(en): 2016
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
Registriert seit: 11.03.2015
Version(en): mittlerweile meistens 2019
25.06.2021, 10:40
(Dieser Beitrag wurde zuletzt bearbeitet: 25.06.2021, 10:41 von 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?
Gruß
Michael
Registriert seit: 07.05.2020
Version(en): 2016
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
Registriert seit: 11.03.2015
Version(en): mittlerweile meistens 2019
25.06.2021, 11:20
(Dieser Beitrag wurde zuletzt bearbeitet: 25.06.2021, 11:21 von 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.
Gruß
Michael
Registriert seit: 29.09.2015
Version(en): 2030,5
25.06.2021, 11:20
(Dieser Beitrag wurde zuletzt bearbeitet: 25.06.2021, 11:31 von 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
Folgende(r) 1 Nutzer sagt Danke an snb für diesen Beitrag:1 Nutzer sagt Danke an snb für diesen Beitrag 28
• ari-2001
Registriert seit: 11.03.2015
Version(en): mittlerweile meistens 2019
@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.
Gruß
Michael
|