VBA Fehler 13 Typen unverträglich

Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("B2") Then 'Wert steht in A1 ActiveSheet.Shapes("Bad Muskau").Select 'Freeform 1 ist der Name der Freihandform With Selection .ShapeRange.Fill.ForeColor.RGB = fctFarbe(Target.Value) End With Target.Select End If ' Hier für eine weitere Form If Target = Range("B3") Then 'Wert steht in A2 ActiveSheet.Shapes("Beiersdorf").Select 'Freeform 2 ist der Name der Freihandform With Selection .ShapeRange.Fill.ForeColor.RGB = fctFarbe(Target.Value) End With Target.Select ' Hier für stehen dann weitere 50 ......... End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ja, aber die Frage ist, müssen es unbedingt Formen sein?
oder willst du die Formen nachträglich in die Landkarte zum jeweiligen Landkreis verschieben?
dann sind formen notwendig.
aber auch dann gäbe es eine VBA-freie Lösung:
richte in Spalte D wie von mir beschrieben die Bedingte Formatierung ein.
mach von jeder Zelle in Spalte D eine verknüpfte Bildkopie (Zelle kopieren und per Kontextmenü - Inhalte Einfügen - Verküpfte Grafik (unten rechts) einfügen)
diese Bildkopie kannst du dann in die Landkarte verschieben.
ist zwar dann immer rechteckig, kommt dafür aber ohne Programmierung aus (was deinem Kenntnisstand entgegen kommen sollte)
damit könntest du sogar ohne großen Aufwand die Ampeln aus den Symbolsätzen verwenden
Gruß Daniel

Private Sub Worksheet_Calculate() Dim shpe As Shape Dim Zelle As Range Dim Meldung As String For Each shpe In Me.Shapes Set Zelle = Columns(1).Find(what:=shpe.Name, LookIn:=xlValues, lookat:=xlWhole) If Not Zelle Is Nothing Then shpe.Fill.ForeColor.RGB = fctFarbe(Zelle.Offset(0, 2).Value) Else Select Case shpe.Name Case "Picture 2" Case Else Meldung = Meldung & vbLf & "- " & shpe.Name shpe.Fill.ForeColor.RGB = RGB(200, 200, 200) End Select End If Next If Meldung "" Then MsgBox "F?r folgende Shapes konnte keine Datenzeile gefunden werden:" & vbLf _ & Meldung & vbLf & vbLf _ & "Bitte pr?fen sie die Schreibweisen von Shape-Namen und Text in Spalte A:" End If End Sub

Hallo Daniel,
leider hab ich nun das Problem, wenn ich im Ersten Tabellenblatt Formel ändere oder Zahlen eintrage, kommt jedesmal die Fehlermeldung aus dem VBA Skript.
Rectangel 1 sucht er immer :(
MsgBox "F?r folgende Shapes konnte keine Datenzeile gefunden werden:" & vbLf _
& Meldung & vbLf & vbLf _
& "Bitte pr?fen sie die Schreibweisen von Shape-Namen und Text in Spalte A:
Das VBA soll ja nur auf dem Tabellenblatt Karte funktionieren udn nun bleiben alle Formen grün :(

Private Sub Worksheet_Calculate()
Dim shpe As Shape
Dim Zelle As Range
Dim Meldung As String
For Each shpe In Me.Shapes
Set Zelle = Columns(1).Find(what:=shpe.Name, LookIn:=xlValues, lookat:=xlWhole)
If Not Zelle Is Nothing Then
shpe.Fill.ForeColor.RGB = fctFarbe(Zelle.Offset(0, 2).Value)
Else
Select Case shpe.Name
Case "Picture 2"
Case Else
Meldung = Meldung & vbLf & "- " & shpe.Name
shpe.Fill.ForeColor.RGB = RGB(200, 200, 200)
End Select
End If
Next
If Meldung  "" Then
MsgBox "F?r folgende Shapes konnte keine Datenzeile gefunden werden:" & vbLf _
& Meldung & vbLf & vbLf _
& "Bitte pr?fen sie die Schreibweisen von Shape-Namen und Text in Spalte A:"
End If
End Sub

Private Function fctFarbe(dblWert As Long) As Long
If dblWert >= 50 Then
fctFarbe = RGB(255, 0, 0)                  'rot
ElseIf dblWert >= 34 And dblWert = 20 And dblWert = 0 And dblWert

Beliebteste Forumthreads (12 Monate)

VBA Fehler 13 Typen unverträglich

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

82 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Fehler 13 Typen unverträglich

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

82 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread