Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

drucken

Forumthread: drucken

drucken
30.04.2006 17:32:00
tina
hallo,
ich habe da ein problem.
so schaut meine tabelle aus:
 
  
 ABCDE
1Kunde: 0147BrigitteMustermannMustergasse 199999 Musterhausen
2Kunde: 0148HansBeispielBeispielstrasse 288888 Beispielhausen
3Kunde: 0149RainerZufallZufallsweg 377777 Zufallshausen
 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

nun möchte ich diese daten drucken.und zwar die daten der reihe 1 auf einem blatt, auf dem nächsten blatt die reihe 2usw.

also jede reihe soll auf einem neuen blatt gedruckt werden.

wie kann/muss ich da was einstellen?

vielen lieben dank für eure mühe

gruss Tin@

                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        




    
    
    
    

    

        

                        
            3
            
Beiträge zum Forumthread

            
Beiträge zu diesem Forumthread

        

    


    
    

    

                    

                
                Betreff
            

            
Datum

            
Anwender

            

    
    


    
Anzeige

    

        
                    
            
                
    



    
    



    
            
                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: drucken
                                            

                    

                                                    30.04.2006 18:11:45
                                            

                                

                                            Tassos
                                    

            

        

        

                            
Hallo Tina

Probier es so:

Option Explicit

Sub PrintIt()
Application.ScreenUpdating = False
Dim rng As Range, z As Range, rngA$
Set rng = Range("A1:A" & Range("A65536").End(xlUp).Row)
With Sheets(1).PageSetup
For Each z In rng
If Not z Is Nothing Then
rngA = z.Resize(, 6).Address 'evtl anpassen
.PrintArea = rngA
'Sheets(1).PrintOut 'Copies:=1, Collate:=True
MsgBox rngA
End If
Next
'.PrintArea = ""
End With
End Sub


Gruss

Tassos

                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: drucken
                                            

                    

                                                    30.04.2006 18:18:18
                                            

                                

                                            Nepumuk
                                    

            

        

        

                            
Hallo Tin@,

versuch es mal so:



Option Explicit

Public Sub test()
    Dim lngRow As Long
    With Tabelle1 'anpassen !!
        For lngRow = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
            .PageSetup.PrintArea = .Range(.Cells(lngRow, 1), .Cells(lngRow, 5)).Address
            .PrintOut
        Next
        .PageSetup.PrintArea = ""
    End With
End Sub


Gruß

Nepumuk


		

                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            danke euch beiden o.t.
                                            

                    

                                                    30.04.2006 19:28:44
                                            

                                

                                            tina
                                    

            

        

        

                            
gruss Tin@

                    

            



                
    ;

    
    
    
                    


    
    
    

    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    

    
    

    

        

            

                
                    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
                
            

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                
                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                

                
                
                

                    

        
Entdecke mehr

    

                    
            

                

                    

                        

                            
                            Finde genau, was du suchst
                        

                        
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten
                            zu finden

                        
                            
                            Suche nach den besten Antworten
                        
                    

                

            

                            
            

                

                    

                        

                            
                            Unsere beliebtesten Threads
                        

                        
Entdecke unsere meistgeklickten Beiträge in der Google Suche

                        
                            
                            Top 100 Threads jetzt ansehen
                        
                    

                

            

                
    



                

                

                


    
Anzeige