| 
                              
                                  Thema
                              
                           | 
                          
                              
                                  Datum 
                           | 
                          
                              
                                  Von Nutzer
                           | 
                          
                              
                                  Rating
                           | 
                          
                               
                                  Antwort 
                           | 
                      
                      
 | 
10.04.2014 08:26:35 | 
Josef Eberle | 
 | 
 | 
 | 
10.04.2014 10:09:40 | 
Gast35556 | 
 | 
 | 
 | 
10.04.2014 12:17:20 | 
Gast61775 | 
 | 
 | 
  Excel auslesen der Row von mehreren Zellen  | 
10.04.2014 14:06:40 | 
gabi | 
 | 
 | 
 | 
10.04.2014 20:35:31 | 
gabi | 
 | 
 | 
                  
    
                    
             
								 
									
										Von: 
                                            gabi | 
										Datum: 
                                            10.04.2014 14:06:40 | 
										Views:
                                             
                                            1047 | 
										Rating:
                                                                          | 
										Antwort: 
                                              
                                            
                                             | 
									
									
										Thema:
                                             
                                            Excel auslesen der Row von mehreren Zellen | 
									
									
										|  
                                             
	LOL - irgendwie kann ich Gast35556 verstehen, hält sich doch selbst MS nicht an den terminus technicus 
	Hallo Josef Eberle, 
	hattu Zellen mit Strg mehrfach markiert und startest das Makro dann ggf. so : 
Option Explicit
Sub MultiSelectToArray()
'
Dim Matrix()
Dim x As Long
Dim c As Range
'Test
Range("A2,B4,C6").Select
'
For Each c In Selection
  ReDim Preserve Matrix(0 To x)
  Matrix(x) = c.Value
  x = x + 1
Next c
'Test
For x = LBound(Matrix) To UBound(Matrix)
  Debug.Print Matrix(x)
Next x
End Sub
Sub BetterMultiSelectToArray()
Dim Matrix()
Dim x As Long
Dim c As Range
x = 1
ReDim Matrix(x To Selection.Count)
For Each c In Selection
  Matrix(x) = c.Value
  x = x + 1
Next c
'Test
For x = LBound(Matrix) To UBound(Matrix)
  Debug.Print Matrix(x)
Next x
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 
                           | 
                      
                      
 | 
10.04.2014 08:26:35 | 
Josef Eberle | 
 | 
 | 
 | 
10.04.2014 10:09:40 | 
Gast35556 | 
 | 
 | 
 | 
10.04.2014 12:17:20 | 
Gast61775 | 
 | 
 | 
  Excel auslesen der Row von mehreren Zellen  | 
10.04.2014 14:06:40 | 
gabi | 
 | 
 | 
 | 
10.04.2014 20:35:31 | 
gabi | 
 | 
 |