Thema Datum  Von Nutzer Rating
Antwort
28.06.2018 08:55:45 Walter Stein
NotSolved
28.06.2018 09:35:56 RPP63
NotSolved
28.06.2018 09:48:10 Walter Stein
NotSolved
Blau Hier mal getestet
 28.06.2018 09:49:27 RPP63
NotSolved
28.06.2018 10:03:07 Walter Stein
Solved

Ansicht des Beitrags:
Von:
RPP63		 Datum:
28.06.2018 09:49:27		 Views:
431		 Rating:
     
Antwort:
  Ja
Thema:
Hier mal getestet		 



	
Sub RPP()





	Dim Sh As Shape, Rng As Range



	Set Rng = Tabelle1.Range("J3:Z10")



	On Error GoTo errHdl



	For Each Sh In Tabelle1.Shapes



	  If Not Intersect(Sh.TopLeftCell, Rng) Is Nothing Then Sh.Delete



	Next Sh



	errHdl:



	Debug.Print Err.Number & " " & Err.Description



	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

                          		
                      

                      


28.06.2018 08:55:45
Walter Stein



NotSolved




28.06.2018 09:35:56
RPP63



NotSolved




28.06.2018 09:48:10
Walter Stein



NotSolved




Blau Hier mal getestet

28.06.2018 09:49:27
RPP63



NotSolved




28.06.2018 10:03:07
Walter Stein



Solved