Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Laufzeitfehler 13 Typen unverträglich |
05.06.2020 13:23:15 |
Kai |
|
|
|
05.06.2020 13:29:57 |
Torsten |
|
|
|
05.06.2020 14:06:46 |
Gast46140 |
|
|
|
08.06.2020 11:46:33 |
Torsten |
|
|
|
09.06.2020 10:14:04 |
Kai |
|
|
Von:
Kai |
Datum:
05.06.2020 13:23:15 |
Views:
1225 |
Rating:
|
Antwort:
|
Thema:
Laufzeitfehler 13 Typen unverträglich |
Hallo zusammen,
Bin Anfänger mit VBA und versuche eine For Schleife zu implementieren, die über die Reihen einer Tabelle Iteriert und die Werte in Abhängigkeit von der Spalte mit einer anderen Tabelle abgleicht und ggf. Werte anpasst.
Das Vorhaben scheitert aber schon bei der Implementierung einer einfachen IF-Abfrage:
Sub Lagerplatzzuteilung()
Dim wb As Workbook
Dim Produkte As Worksheet
Dim Stellplaetze As Worksheet
Dim rw As Range
Dim rw2 As Range
Dim RowCount As Integer
Dim WerteBereich As Range
Set wb = ActiveWorkbook
Set Stellplaetze = Worksheets("Lagerplätze")
Set WerteBereich = Stellplaetze.Range("A1:I217")
Set Produkte = Worksheets("Quelldaten")
Stellplaetze.Cells(14, 1).Value = 1
For Each rw In Produkte.Rows
For Each rw2 In Stellplaetze.Range("2:217").Rows
If Not Application.WorksheetFunction.IsNull(Stellplaetze.Cells(rw2, 3).Value) Then
Bei der Zeile zeigt er mir Laufzeitfehler "13" Typen unverträglich an.
Wieso ist das so? Kann mir bitte einer helfen?
|
- 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
|
Laufzeitfehler 13 Typen unverträglich |
05.06.2020 13:23:15 |
Kai |
|
|
|
05.06.2020 13:29:57 |
Torsten |
|
|
|
05.06.2020 14:06:46 |
Gast46140 |
|
|
|
08.06.2020 11:46:33 |
Torsten |
|
|
|
09.06.2020 10:14:04 |
Kai |
|
|