VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Objekteigenschaft durch Methode erkennen	20.03.2015 15:01:47	kkarl
Objekteigenschaft durch Methode erkennen	20.03.2015 15:34:05	Gast30172
Objekteigenschaft durch Methode erkennen	20.03.2015 15:51:05	kkarl
Objekteigenschaft durch Methode erkennen	20.03.2015 15:52:24	kkarl
Objekteigenschaft durch Methode erkennen	20.03.2015 16:02:12	Gast36405
im Nachhinein, noch ein Gedanke/Vorschlag dazu	20.03.2015 16:15:41	Gast58608

Ansicht des Beitrags:

Von:
Gast30172

Datum:
20.03.2015 15:34:05

Views:
726

Rating:

Antwort:

Thema:
Objekteigenschaft durch Methode erkennen

So einen richtigen Sinn ergibt sich mir hier noch nicht.

Dennoch, mal ein Versuch:

Option Explicit

Public mName As String
Public mPreis As Double
Public mvar

Enum MyClassProp
  propName = 1
  propPreis
End Enum

Public Function print_(prop As MyClassProp)
  
  Dim firstCell
  Dim lastCell
  Dim firstRow
  Dim lastRow
  Dim that_sheet
  Dim rundungstellen As Integer
  Dim val As Variant
  
  rundungstellen = 0
' -----------------------------------------------
' Hier soll geprüft werden ->>
' -----------------------------------------------
  Select Case prop
    Case propName
      firstCell = 25
      lastCell = 27
      that_sheet = "Ergebnis"
      val = mName
    Case propPreis
      firstCell = 29
      lastCell = 0
      that_sheet = "Ergebnis"
      val = Application.Round(mPreis, rundungstellen)
  End Select
    
  Select Case that_sheet
    Case "Ergebnis"
      Select Case mvar
        Case 0
          firstRow = 10
          lastRow = 12
        Case 1
          firstRow = 14
          lastRow = 16
      End Select
  End Select
  
  With Sheets(that_sheet)
    .Range(.Cells(firstCell, firstRow), .Cells(lastCell, lastRow)) = val
  End With
  
End Function

und dann halt:

Sub Main()
  Dim Lam1 As New MyClass
  Call Lam1.print_(propPreis)
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
Objekteigenschaft durch Methode erkennen	20.03.2015 15:01:47	kkarl
Objekteigenschaft durch Methode erkennen	20.03.2015 15:34:05	Gast30172
Objekteigenschaft durch Methode erkennen	20.03.2015 15:51:05	kkarl
Objekteigenschaft durch Methode erkennen	20.03.2015 15:52:24	kkarl
Objekteigenschaft durch Methode erkennen	20.03.2015 16:02:12	Gast36405
im Nachhinein, noch ein Gedanke/Vorschlag dazu	20.03.2015 16:15:41	Gast58608