Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.02.2022 14:34:47 |
Lisa |
|
|
|
22.02.2022 15:47:37 |
Gast77168 |
|
|
|
22.02.2022 16:21:24 |
Gast97075 |
|
|
|
22.02.2022 17:56:16 |
ralf_b |
|
|
|
23.02.2022 08:05:03 |
Lisa |
|
|
Laufzeitfehler '13' Typen unerträglich |
23.02.2022 11:32:04 |
Gast83243 |
|
|
|
23.02.2022 13:15:35 |
Lisa |
|
|
Von:
Gast83243 |
Datum:
23.02.2022 11:32:04 |
Views:
615 |
Rating:
|
Antwort:
|
Thema:
Laufzeitfehler '13' Typen unerträglich |
- Du musst jede Zelle im gewünschten Bereich ansprechen. Das kannst du z.B. mit einer for-each-Schleife machen
- Benutze den Datentyp integer nicht. Der wird intern sowieso verwaltet wie long, was dann auch für alle Zeilen einer Tabelle reicht
- Bist du sicher, dass du den Like-Operator verwenden willst? Der sucht nach Mustern, was etwas anderes ist, als ein Vergleich absoluter Zeichenketten
Das müsste etwa das machen, was du willst. Falls nicht, musst du mehr Code posten:
Dim z As Long
Dim BereichDL As Range
Dim zelle As Range
Set BereichDL = Sheets("Kostenstellen DL-Nr.").Range(Cells(3, 1), Cells(LetzteZeileDL45, 1))
z = 3
Do Until z = SAP_letzteZeile
For Each zelle In BereichDL
If Sheets("SAP Auswertung").Range("E" & z).Value Like zelle.Value Then
Sheets("SAP Auswertung").Range("A" & z).Value = "K45"
End If
Next BereichDL
z = z + 1
Loop
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.02.2022 14:34:47 |
Lisa |
|
|
|
22.02.2022 15:47:37 |
Gast77168 |
|
|
|
22.02.2022 16:21:24 |
Gast97075 |
|
|
|
22.02.2022 17:56:16 |
ralf_b |
|
|
|
23.02.2022 08:05:03 |
Lisa |
|
|
Laufzeitfehler '13' Typen unerträglich |
23.02.2022 11:32:04 |
Gast83243 |
|
|
|
23.02.2022 13:15:35 |
Lisa |
|
|