Thema Datum  Von Nutzer Rating
Antwort
15.12.2010 20:08:02 vIC
NotSolved
Blau Aw:VBA IF Else Schleiße Problem
 16.12.2010 09:01:32 Severus
NotSolved
16.12.2010 10:01:48 vIC
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
16.12.2010 09:01:32		 Views:
819		 Rating:
     
Antwort:
  Ja
Thema:
Aw:VBA IF Else Schleiße Problem
vIC schrieb am 15.12.2010 20:08:02:

Hey Hallo..

Möchte gerne Koordinaten aus Excel, verbunden miteinader, zeichnen lassen.
Nur beim debuggen bekommt ich für s=2 (Zweiter Durchlauf) für x1,x2,y1 und y2 = Leer

Bei s=1 (erster Durchlauf) nimmt bekommt er es hin und die Linie wird auch richtig dargestellt.
Achja die Zellen sind definitiv nicht leer ;)

Code:
Sub Lienenzug() 'Wiedergabe aus den Koordinaten aus dem Arbeitsblatt "Auswertung" als Linien
Dim x1, y1, x2, y2 As Single
Dim RSX, RSY, RHO, s As Integer 'RasterHOehe


Sheets("Auswertung").Activate

For s = 1 To 10
x1 = Cells(5 + s, 5).Value
y1 = Cells(5 + s, 6).Value
x2 = Cells(6 + s, 5).Value
y2 = Cells(6 + s, 6).Value

Sheets("Grafik").Activate

RSX = 50: RSY = 30: RHO = 200


With ActiveSheet.Shapes.AddLine(x1 + RSX, (RSY + RHO) - y1, x2 + RSX, (RSY + RHO) - y2).Line
.DashStyle = msoLineSolid
.ForeColor.RGB = RGB(255, 0, 0)
.Weight = 1
End With

Next s

End Sub

Das Problem ist schlicht die Codezeile
Sheets("Auswertung").Activate
Du mußt sie nach dem For ... setzen!

For s = 1 To 10
Sheets("Auswertung").Activate
x1 = Cells(5 + s, 5).Value

Sonst wird nach dem ersten Durchlauf dieses Blatt nicht mehr aktiviert und auf dem Grafikblatt hast Du ja keine Werte!
Severus

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
15.12.2010 20:08:02 vIC
NotSolved
Blau Aw:VBA IF Else Schleiße Problem
 16.12.2010 09:01:32 Severus
NotSolved
16.12.2010 10:01:48 vIC
NotSolved