markierte Zeilen kopieren

• markierte Zeilen kopieren von Michael vom 18.11.2003 13:28:05
  • AW: markierte Zeilen kopieren - von GerdW am 18.11.2003 13:36:57
    • AW: markierte Zeilen kopieren - von Michael am 18.11.2003 13:42:28
      • AW: markierte Zeilen kopieren - von GerdW am 18.11.2003 13:52:46
        • AW: markierte Zeilen kopieren - von Michael am 18.11.2003 13:56:32
          • AW: markierte Zeilen kopieren - von GerdW am 18.11.2003 14:01:31
            • AW: markierte Zeilen kopieren - von Michael am 18.11.2003 14:07:05
              • AW: markierte Zeilen kopieren - von GerdW am 18.11.2003 14:36:33
                • AW: markierte Zeilen kopieren - von Michael am 18.11.2003 14:47:37
                  • AW: markierte Zeilen kopieren - von GerdW am 18.11.2003 14:50:33
                    • AW: markierte Zeilen kopieren - von Michael am 18.11.2003 15:02:31

Betrifft: markierte Zeilen kopieren
von: Michael
Geschrieben am: 18.11.2003 13:28:05
Hallo an alle,

Ich habe eine Excel Tabelle mit Daten.
Durch drücken eines Buttons werden die Daten der markierten Zeile in ein Word Vordruck kopiert und anschließend ausgedruckt.

Nun zu meiner Frage:

Wie kann ich den Quelltext umändern, damit ich mehrere Zeilen markieren und diese anschließend in denn Word Vordruck kopiert werden und zum schluss alle ausgedruckt werden???

Danke schon im Vorraus

Mfg Michael

Betrifft: AW: markierte Zeilen kopieren
von: GerdW
Geschrieben am: 18.11.2003 13:36:57
Wo ist dein Code?

Gerd

Betrifft: AW: markierte Zeilen kopieren
von: Michael
Geschrieben am: 18.11.2003 13:42:28
Hallo Gerd

hier kommt mein Code: (hab ihn etwas gekürtzt)

Private Sub Test_Click()
Call MarkierteZeileKopieren
End Sub

Sub MarkierteZeileKopieren()
On Error Resume Next
Dim Cr As Long, CC As Integer
Dim Projektnummer As Object
Dim appWD As New Word.Application

CC = 1
'Übernehmen der Zeile
Cr = Selection.Row
'Senden an Zieladressen

Cells(Cr, CC).Select 'Projektnr (Projektnummer)
Selection.Copy
Set appWD = CreateObject("word.Application")
appWD.Visible = True
appWD.documents.Add ("r:\Projekt.dot")
appWD.Selection.GoTo What:=wdGoToBookmark, Name:="Projektnummer"
appWD.Selection.Paste

If Cells(Cr, CC + 1) = "" Then
Cells(Cr, CC + 1).Value = " "
End If
Cells(Cr, CC + 1).Copy 'Erf.-Datum (Erstellt)
If Cells(Cr, CC + 1) = " " Then
Cells(Cr, CC + 1).Value = ""
End If
appWD.Selection.GoTo What:=wdGoToBookmark, Name:="Erstellt"
appWD.Selection.Paste

appWD.ActiveDocument.PrintOut
Application.Wait Now + TimeSerial(0, 0, 5)
appWD.ActiveDocument.Close savechanges:=False
appWD.Application.Quit

End Sub


Betrifft: AW: markierte Zeilen kopieren
von: GerdW
Geschrieben am: 18.11.2003 13:52:46
Die einzige Markierung, die ich sehe ist das hier:

Cells(Cr, CC).Select 'Projektnr (Projektnummer)

Was soll denn stattdessen markiert werden?

Gerd

Betrifft: AW: markierte Zeilen kopieren
von: Michael
Geschrieben am: 18.11.2003 13:56:32
Also zur Zeit muss ich jede Zeile einzeln markieren und dann auf den Button klicken um den Word Vordruck zu drucken.

Ich würde aber gerne gleich z.B. 5 untereinanderliegende Zeilen markieren sodas diese dann anschließend gedruckt werden!!

Mfg Michael

Betrifft: AW: markierte Zeilen kopieren
von: GerdW
Geschrieben am: 18.11.2003 14:01:31
Range(Cells(Cr, CC),cells(cr,cc+4)).select

Select und activate ist fast nie nötig:

Range(Cells(Cr, CC),cells(cr,cc+4)).copy

Gerd

Betrifft: AW: markierte Zeilen kopieren
von: Michael
Geschrieben am: 18.11.2003 14:07:05
Sorry aber bin ich jetz falsch oder du???

ich meinte das ich die Zeilen markieren will nicht die Zellen(Spalten)

Mfg Michael

Betrifft: AW: markierte Zeilen kopieren
von: GerdW
Geschrieben am: 18.11.2003 14:36:33
Rows(cr & ":" & cr + 4).Select

Gerd

Betrifft: AW: markierte Zeilen kopieren
von: Michael
Geschrieben am: 18.11.2003 14:47:37
und wie sieht das dann ungefähr in meinem Quelltext aus???

Sorry das ich so unbeholfen bin aba bin halt noch ein leuling auf dem gebiet

Mfg Michael

Betrifft: AW: markierte Zeilen kopieren
von: GerdW
Geschrieben am: 18.11.2003 14:50:33
Statt dieser Zeile:

Cells(Cr, CC).Select 'Projektnr (Projektnummer)

Gerd

Betrifft: AW: markierte Zeilen kopieren
von: Michael
Geschrieben am: 18.11.2003 15:02:31
Ach so ok
Ich dank dir schon mal für deine Hilfe

Mfg Michael

Excel-Beispiele zum Thema " markierte Zeilen kopieren"
Abfrage der markierten Spalten	Zeilen oberhalb der markierten Zellen einfügen
Markierten Bereich mit jeweiligem Mwst-Satz multiplizieren	Markierten Bereich drucken
Adressen grau markierter Zellen als Hyperlink eintragen	Zeilenhöhe in cm festlegen
Summe gefilterter Zeilen	Zeilenumbruch
Leere Zeilen löschen	Spalten/Zeilen aus- und einblenden