If Cell in makro einbauen
04.02.2004 14:48:31
Markus H.
hab mri mit mühe und not dieses Makro erstellt:
Private Sub CommandButton2_Click()
With Worksheets("Rechnung")
Zeile = .ListBox1.ListIndex + 3
.ListBox1.Visible = False
.Range("A4") = Worksheets("Kunden").Cells(Zeile, 2)
.Range("A5") = Worksheets("Kunden").Cells(Zeile, 6) & " " & _
Worksheets("Kunden").Cells(Zeile, 7) & " " & _
Worksheets("Kunden").Cells(Zeile, 8) & " " & _
Worksheets("Kunden").Cells(Zeile, 3)
.Range("A6") = Worksheets("Kunden").Cells(Zeile, 9)
.Range("A7") = Worksheets("Kunden").Cells(Zeile, 10) & " " & _
Worksheets("Kunden").Cells(Zeile, 11) & " " & _
Worksheets("Kunden").Cells(Zeile, 4)
End With
Me.ListBox1.Visible = False
Me.CommandButton2.Visible = False
Me.CommandButton3.Visible = False
End Sub
aber kunden!G3 kann leer sein, wenn Kunden!G3 leer ist sollte kein Leerzeichen mit eingefügt werden!
Mein ansatz:
Private Sub CommandButton2_Click()
With Worksheets("Rechnung")
Zeile = .ListBox1.ListIndex + 3
.ListBox1.Visible = False
.Range("A4") = Worksheets("Kunden").Cells(Zeile, 2)
.Range("A5") = Worksheets("Kunden").Cells(Zeile, 6) & " " & _
IF Worksheets("Kunden").Cells(Zeile, 7) = "" then
Else: Worksheets("Kunden").Cells(Zeile, 7) & " " & _
End If
Worksheets("Kunden").Cells(Zeile, 8) & " " & _
Worksheets("Kunden").Cells(Zeile, 3)
.Range("A6") = Worksheets("Kunden").Cells(Zeile, 9)
.Range("A7") = Worksheets("Kunden").Cells(Zeile, 10) & " " & _
Worksheets("Kunden").Cells(Zeile, 11) & " " & _
Worksheets("Kunden").Cells(Zeile, 4)
End With
Me.ListBox1.Visible = False
Me.CommandButton2.Visible = False
Me.CommandButton3.Visible = False
End Sub
so gehts ja aber ncht.. wer kann helfen?
MfG
Markus