Thema Datum  Von Nutzer Rating
Antwort
Rot Mit Range rechnen
 26.11.2011 15:46:01 Kevin
NotSolved
26.11.2011 18:22:05 Till
NotSolved
27.11.2011 16:38:28 Gast83591
NotSolved

Ansicht des Beitrags:
Von:
Kevin		 Datum:
26.11.2011 15:46:01		 Views:
1718		 Rating:
     
Antwort:
  Ja
Thema:
Mit Range rechnen

Hallo zusammen,

 

ich habe folgendes Problem, ich möchte mit dem Inhalt eines Ranges weiterrechnen. Anbei der Code.

Jetzt bekomme ich Typen unverträglichkeits Fehler. Meine Frage, wie mache ich es anders/richtig?

 

Ganz vielen lieben Dank!

 

Public rngauswahl As Range
Public anz_punkte As Integer

Private Sub uf_bereich_refedit_Click()

  If Len(Me.RefEdit1) Then
    Set rngauswahl = Range(Me.RefEdit1)
    rngauswahl.Select
  End If
  Hide
  
  Dim i As Double
  Dim Area As Double
  Dim xs As Double
  Dim gauss_area As Double
  Dim ys As Double
  Dim xa As Double
  Dim ya As Double
  
  anz_punkte = 5
  
  xs = rngauswahl(1, 1).Value
  ys = CDbl(rngauswahl(1, 2).Value)
     xs = CDbl(xs)
    ys = CDbl(ys)
  
  For i = 0 To anz_punkte
    xa = rngauswahl(i, 1).Value
    ya = rngauswahl(i, 2).Value
    
    xa = CDbl(xa)
    ya = CDbl(ya)
    
    Area = Area + (ys + ya) * (xs - xa)
     
 
    xs = xa
    ys = ya
  Next i
  
  xa = CDbl(rngauswahl(1, 1).Value)
  ya = CDbl(rngauswahl(1, 2).Value)
  
  Area = Area + (ys + ya) * (xs - xa)
  
 
  ' Rückgabewert
  gauss_area = Abs(Area) / 2
  
  MsgBox (gauss_area)
  
    
    Unload Me

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
Rot Mit Range rechnen
 26.11.2011 15:46:01 Kevin
NotSolved
26.11.2011 18:22:05 Till
NotSolved
27.11.2011 16:38:28 Gast83591
NotSolved