Thema Datum  Von Nutzer Rating
Antwort
26.02.2009 14:24:11 Homer80
NotSolved
Blau Aw:Fehler 13: Typen unverträglich
 27.02.2009 10:12:01 Holger
NotSolved
27.02.2009 13:52:19 Homer80
NotSolved
02.03.2009 09:40:19 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
27.02.2009 10:12:01		 Views:
1311		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Fehler 13: Typen unverträglich
Hallo Homer80,
ich gehe davon aus, dass die "_" Verbindungszeichen für Zeilen sind, aber die Zeilenwechsel nicht eingefügt wurden, und dass OldRow... ein Punkt vorangestellt werden sollte und in die Zeile davor gehört.
Allerdings kenne ich keine Eigenschaft "OldRow". Du willst aber vermutlich den Bereich
Worksheets(1).Cells(Target.Row, 1), Worksheets(1).Cells(Target.Row, 14)
ausschneiden. Dazu brauchst du ihn nicht zu markieren.
Range(Worksheets(1).Cells(Target.Row, 1), Worksheets(1).Cells(Target.Row, 14)).Cut
genügt.
Um auf dem Tabellenblatt "Erledigt" die nächste freie Zeile zu finden, kannst du z.B.
Worksheets("Erledigt").Activate
lz = Cells(Rows.Count, 1).End(xlUp).Row+1
verwenden.
Gruß
Holger



Homer80 schrieb am 26.02.2009 14:24:11:

Hallo,
ich habe folgenden Code (als Anfänger) geschrieben:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 10 And Target.Value = "Erledigt" Then
Range(Worksheets(1).Cells(Target.Row, 1), _ Worksheets(1).Cells(Target.Row, 14))
OldRow.Select
Selection.Cut
Dim Workshet As Range: Set Workshet = _ Worksheets("Erledigt").Range("A3", "A20000")
Dim Cell As Range
Dim counter As Integer: counter = 3
Dim NewPlace As Range
For Each Cell In Workshet
If Cell.Value = "" Then
Worksheets("Erledigt").Activate
Worksheets("Erledigt").Cells(counter, 1).Select
Exit For
End If
counter = counter + 1
Next
ActiveSheet.Paste
End If
End Sub

Ich will damit bezwecken das bei Änderung einer Listbox auf den Eintrag "Erledigt" die betroffene Zeile in das nächste Worksheet verschoben wird.

Ich bekomme jedoch immer den Fehler 13 "Typen unverträglich" bei "If Target.Column...": , wobei die sub aber korrekt ausgeführt wird.

Hat Jemand eine Ahnung woran das liegen könnte ?

Vieln Dank im Voraus
Homer


Ihre Antwort
  • 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: Name: Email:



  • 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
26.02.2009 14:24:11 Homer80
NotSolved
Blau Aw:Fehler 13: Typen unverträglich
 27.02.2009 10:12:01 Holger
NotSolved
27.02.2009 13:52:19 Homer80
NotSolved
02.03.2009 09:40:19 Holger
NotSolved