Thema Datum  Von Nutzer Rating
Antwort
02.01.2014 22:15:57 Kai
NotSolved
Blau Einzelne Zeilen mit Kommentar neu angeortned drucken
03.01.2014 11:01:31 Kai
NotSolved
04.01.2014 23:39:43 H27
NotSolved
07.01.2014 08:40:44 Kai
NotSolved
07.01.2014 18:44:40 H27
NotSolved
08.01.2014 11:36:10 Kai
NotSolved

Ansicht des Beitrags:
Von:
Kai
Datum:
03.01.2014 11:01:31
Views:
1120
Rating: Antwort:
  Ja
Thema:
Einzelne Zeilen mit Kommentar neu angeortned drucken

Ich habe jetz den Code für die Druckfunktion geschrieben. Ich bekomm aber das Kommentarfeld von der Zelle K nicht in die Druckvorlage in Zelle A13 per. VBA übertragen.

Hat jemand ein Tipp?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Option Explicit
 
  
 
Private Sub UserForm_Activate()
 
Dim lIndx    As Long
Dim lAnzahl  As Long
Dim WbSh     As Worksheet
 
   Set WbSh = Worksheets("Wartung")
   lAnzahl = IIf(WbSh.Range("A65536") <> "", 65536, WbSh.Range("A65536").End(xlUp).Row)
 
   Application.ScreenUpdating = False       ' kein Bildschirm Update
    
   UserForm1.Label1.Caption = "Bitte die gewünschte Adresse auswählen."
    
   With UserForm1.ListBox1
      .ColumnCount = 8                      ' ListBox auf 8 Spalten bringen
      .ColumnWidths = _
            "5,0 cm; 5,0 cm; 5,0 cm; 5,0 cm; 5,0 cm" ' die Spalten-Breiten
   End With
    
   For lIndx = 6 To lAnzahl                 ' sortiertes Resultat sichtbar machen
      UserForm1.ListBox1.AddItem " "
      UserForm1.ListBox1.List(lIndx - 6, 0) = WbSh.Range("F" & lIndx).Value
      UserForm1.ListBox1.List(lIndx - 6, 1) = WbSh.Range("I" & lIndx).Value
      UserForm1.ListBox1.List(lIndx - 6, 2) = WbSh.Range("J" & lIndx).Value
      UserForm1.ListBox1.List(lIndx - 6, 3) = WbSh.Range("G" & lIndx).Value
      UserForm1.ListBox1.List(lIndx - 6, 4) = WbSh.Range("H" & lIndx).Value
      UserForm1.ListBox1.List(lIndx - 6, 5) = WbSh.Range("D" & lIndx).Value
      UserForm1.ListBox1.List(lIndx - 6, 6) = WbSh.Range("K" & lIndx).Value
      
   Next lIndx
           
   Application.ScreenUpdating = True        ' Bildschirm Update zulassen
 
End Sub
 
Private Sub ListBox1_Click()
 
Dim Antwort  As Integer
 
   With Sheets("Auftrag")
      Range("B4").Value = UserForm1.ListBox1.List(Me.ListBox1.ListIndex, 0)
      Range("B5").Value = UserForm1.ListBox1.List(Me.ListBox1.ListIndex, 1)
      Range("B6").Value = UserForm1.ListBox1.List(Me.ListBox1.ListIndex, 2)
      Range("B7").Value = UserForm1.ListBox1.List(Me.ListBox1.ListIndex, 3)
      Range("B8").Value = UserForm1.ListBox1.List(Me.ListBox1.ListIndex, 4)
      Range("B9").Value = UserForm1.ListBox1.List(Me.ListBox1.ListIndex, 5)
      Range("B10").Value = UserForm1.ListBox1.List(Me.ListBox1.ListIndex, 6)
      Range("B11").Value = UserForm1.ListBox1.List(Me.ListBox1.ListIndex, 7)
       
   End With
    
 
   Antwort = MsgBox("soll der Wartungsauftrag für " & _
             UserForm1.ListBox1.List(Me.ListBox1.ListIndex, 0) & _
             " wirklich gedruckt werden?", vbYesNo)
              
   If Antwort = vbYes Then
      With ActiveSheet.PageSetup
         .Orientation = xlLandscape
         .Draft = False
         .PaperSize = xlPaperA4
      End With
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   End If
       
   Unload UserForm1
 
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
02.01.2014 22:15:57 Kai
NotSolved
Blau Einzelne Zeilen mit Kommentar neu angeortned drucken
03.01.2014 11:01:31 Kai
NotSolved
04.01.2014 23:39:43 H27
NotSolved
07.01.2014 08:40:44 Kai
NotSolved
07.01.2014 18:44:40 H27
NotSolved
08.01.2014 11:36:10 Kai
NotSolved