| 
                              
                                  Thema
                              
                           | 
                          
                              
                                  Datum 
                           | 
                          
                              
                                  Von Nutzer
                           | 
                          
                              
                                  Rating
                           | 
                          
                               
                                  Antwort 
                           | 
                      
                      
 | 
20.03.2015 15:01:47 | 
kkarl | 
 | 
 | 
 | 
20.03.2015 15:34:05 | 
Gast30172 | 
 | 
 | 
 | 
20.03.2015 15:51:05 | 
kkarl | 
 | 
 | 
 | 
20.03.2015 15:52:24 | 
kkarl | 
 | 
 | 
 | 
20.03.2015 16:02:12 | 
Gast36405 | 
 | 
 | 
  im Nachhinein, noch ein Gedanke/Vorschlag dazu  | 
20.03.2015 16:15:41 | 
Gast58608 | 
 | 
 | 
                  
    
                    
             
								 
									
										Von: 
                                            Gast58608 | 
										Datum: 
                                            20.03.2015 16:15:41 | 
										Views:
                                             
                                            1031 | 
										Rating:
                                                                          | 
										Antwort: 
                                             
                                             
                                             | 
									
									
										Thema:
                                             
                                            im Nachhinein, noch ein Gedanke/Vorschlag dazu | 
									
									
										 
                                            
'class: MyClass
Option Explicit
Private m_Name  As MyProperty
Private m_Price As MyProperty
Private Sub Class_Initialize()
  Set m_Name = New MyProperty
  Set m_Price = New MyProperty
End Sub
Property Get Name() As MyProperty
  Set Name = m_Name
End Property
Property Get Price() As MyProperty
  Set Price = m_Price
End Property
Public Sub print_(Prop As MyProperty)
  
  If Prop Is m_Name Then
    MsgBox "Name"
  ElseIf Prop Is m_Price Then
    MsgBox "Preis"
  Else
    '...
  End If
  
End Sub
'class: MyProperty
Option Explicit
Public Value As Variant
 
Sub t()
  
  Dim a As New MyClass
  
  a.Name.Value = "Name"
  a.Price.Value = 12.3
  
  a.print_ a.Price
  
End Sub 
	  
     | 
									
								
							
 					
		   
 
                          
                        
                                
                    - 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
 
                                    
                            
                             
                          
	
                         
                                  
                             
                             Bitte geben Sie ein aussagekräftiges Thema an. 
                            
                            Bitte geben Sie eine gültige Email Adresse ein!
                            
                            
                       
                                - 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 
                           | 
                      
                      
 | 
20.03.2015 15:01:47 | 
kkarl | 
 | 
 | 
 | 
20.03.2015 15:34:05 | 
Gast30172 | 
 | 
 | 
 | 
20.03.2015 15:51:05 | 
kkarl | 
 | 
 | 
 | 
20.03.2015 15:52:24 | 
kkarl | 
 | 
 | 
 | 
20.03.2015 16:02:12 | 
Gast36405 | 
 | 
 | 
  im Nachhinein, noch ein Gedanke/Vorschlag dazu  | 
20.03.2015 16:15:41 | 
Gast58608 | 
 | 
 |