Thema Datum  Von Nutzer Rating
Antwort
24.04.2014 12:40:58 Corina
NotSolved
Blau Vgl. Zelleneinträge mit ShapeText
 24.04.2014 17:08:01 Corina
NotSolved
24.04.2014 21:43:02 gabi
NotSolved
25.04.2014 10:21:14 Corina
NotSolved
25.04.2014 13:44:03 Gast25327
*****
Solved
25.04.2014 13:50:37 Gast63045
NotSolved
25.04.2014 16:07:24 Corina
NotSolved
25.04.2014 16:25:04 Corina
NotSolved
25.04.2014 23:00:38 gabi
NotSolved
26.04.2014 09:50:55 gabi
*****
Solved
27.04.2014 13:20:34 Corina
NotSolved
27.04.2014 18:40:31 gabi
NotSolved
28.04.2014 08:46:31 Corina
NotSolved
Blau Wow
 28.04.2014 09:24:53 gabi
NotSolved
Rot Wow
 28.04.2014 12:51:17 Corina
NotSolved
Blau Wow
 28.04.2014 15:29:14 gabi
NotSolved
Rot Wow
 29.04.2014 09:55:11 Corina
NotSolved
29.04.2014 12:15:23 gabi
NotSolved
28.04.2014 13:46:57 Gast40414
NotSolved
28.04.2014 14:29:04 Corina
NotSolved
28.04.2014 15:02:35 Gast13316
NotSolved
28.04.2014 15:06:49 Gast54937
NotSolved
28.04.2014 15:31:48 Corina
NotSolved
28.04.2014 14:37:59 Corina
NotSolved
27.04.2014 12:50:26 Corina
NotSolved

Ansicht des Beitrags:
Von:
Corina		 Datum:
24.04.2014 17:08:01		 Views:
1711		 Rating:
     
Antwort:
  Ja
Thema:
Vgl. Zelleneinträge mit ShapeText

Mache langsam Fortschritte :) Habe den Code etwas umgeschrieben, so dass er jetzt wenigstens pro forma funktioniert, allerdings bekomme ich falsche Ergebnisse (MsgBox "New shape has to be added!") und weiß leider nicht wieso. Alle Zelleneinträge haben ein Pendant als Form mit dem entsprechenden Text... Ich bitte daher erneut um eure Hilfe...

Besten Dank,

Corina

Option Explicit
Sub CreateShapes()

Dim ws As Worksheet
Dim shp As Excel.Shape
Dim lastRow As Integer
Dim rng As Range

On Error GoTo ErrHandler

Set ws = Worksheets("Lists")
Set shp = Worksheets("Checklist Structure").Shapes(1)
lastRow = ws.Cells(Rows.count, 1).End(xlUp).row
Set rng = ws.Range("D3:G" & lastRow)
With rng
    For Each rng In .Cells
     If .Text = shp.TextFrame2.TextRange.Characters.Text Then
     MsgBox ("Succes!")
     Else
     MsgBox ("New shape has to be added!")
     End If
    Next
End With

ErrHandler:
Call MsgBox(Err.Description, vbCritical, "Error " & Err.number)


End Sub

 

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
24.04.2014 12:40:58 Corina
NotSolved
Blau Vgl. Zelleneinträge mit ShapeText
 24.04.2014 17:08:01 Corina
NotSolved
24.04.2014 21:43:02 gabi
NotSolved
25.04.2014 10:21:14 Corina
NotSolved
25.04.2014 13:44:03 Gast25327
*****
Solved
25.04.2014 13:50:37 Gast63045
NotSolved
25.04.2014 16:07:24 Corina
NotSolved
25.04.2014 16:25:04 Corina
NotSolved
25.04.2014 23:00:38 gabi
NotSolved
26.04.2014 09:50:55 gabi
*****
Solved
27.04.2014 13:20:34 Corina
NotSolved
27.04.2014 18:40:31 gabi
NotSolved
28.04.2014 08:46:31 Corina
NotSolved
Blau Wow
 28.04.2014 09:24:53 gabi
NotSolved
Rot Wow
 28.04.2014 12:51:17 Corina
NotSolved
Blau Wow
 28.04.2014 15:29:14 gabi
NotSolved
Rot Wow
 29.04.2014 09:55:11 Corina
NotSolved
29.04.2014 12:15:23 gabi
NotSolved
28.04.2014 13:46:57 Gast40414
NotSolved
28.04.2014 14:29:04 Corina
NotSolved
28.04.2014 15:02:35 Gast13316
NotSolved
28.04.2014 15:06:49 Gast54937
NotSolved
28.04.2014 15:31:48 Corina
NotSolved
28.04.2014 14:37:59 Corina
NotSolved
27.04.2014 12:50:26 Corina
NotSolved