| 
                              
                                  Thema
                              
                           | 
                          
                              
                                  Datum 
                           | 
                          
                              
                                  Von Nutzer
                           | 
                          
                              
                                  Rating
                           | 
                          
                               
                                  Antwort 
                           | 
                      
                      
 | 
05.12.2018 15:59:38 | 
Gast85575 | 
 | 
 | 
  VBA: Laufzeitfehler bei Verweis zu Zelle in anderer Arbeitsmappe  | 
05.12.2018 16:29:35 | 
Gast66117 | 
 | 
 | 
 | 
05.12.2018 16:44:58 | 
Der Steuerfuzzi | 
 | 
 | 
 | 
05.12.2018 17:07:09 | 
Gast89074 | 
 | 
 | 
 | 
05.12.2018 17:32:52 | 
Gast66117 | 
 | 
 | 
 | 
05.12.2018 17:37:37 | 
Gast73805 | 
 | 
 | 
                  
    
                    
             
								 
									
										Von: 
                                            Gast66117 | 
										Datum: 
                                            05.12.2018 16:29:35 | 
										Views:
                                             
                                            685 | 
										Rating:
                                                                          | 
										Antwort: 
                                             
                                             
                                             | 
									
									
										Thema:
                                             
                                            VBA: Laufzeitfehler bei Verweis zu Zelle in anderer Arbeitsmappe | 
									
									
										 
                                            
Sub ZelleFinden()
 
Dim zelle As Range
 
Dim a As String
 
On Error GoTo Nix
   
'jede Sheets.Count benötigt auch eine Bezug auf Workbooks("Archiv.xlsx")
   With Workbooks("Archiv.xlsx")
      a = .Sheets(.Sheets.Count).Range("B1").Value
   End With
     
On Error GoTo 0
 
For Each zelle In ActiveSheet.Range("A1:X200").Cells
  If zelle.Text = a Then
    zelle.EntireRow.Select
    Exit For
  End If
'wo ein For, da auch ein Next
Next
Exit Sub
Nix:
If Err.Number Then MsgBox "kein Archiv geöffnet"
 
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 
                           | 
                      
                      
 | 
05.12.2018 15:59:38 | 
Gast85575 | 
 | 
 | 
  VBA: Laufzeitfehler bei Verweis zu Zelle in anderer Arbeitsmappe  | 
05.12.2018 16:29:35 | 
Gast66117 | 
 | 
 | 
 | 
05.12.2018 16:44:58 | 
Der Steuerfuzzi | 
 | 
 | 
 | 
05.12.2018 17:07:09 | 
Gast89074 | 
 | 
 | 
 | 
05.12.2018 17:32:52 | 
Gast66117 | 
 | 
 | 
 | 
05.12.2018 17:37:37 | 
Gast73805 | 
 | 
 |