Tabellenblatt wechseln wenn Zelle "C" voll
19.11.2015 13:48:14
Heli
Ich beauche mal eure Hilfe:
Ich hab eine Tabelle (Artikel) und mit dem VBA-Code kann ich per Doppel-Klick die Zellinhalte in ein Rechnungs-Formular (Seite 1) schreiben - soweit funktioniert alles!
Jedoch habe ich nur für 30 Zeilen Platz - und wenn die Zelle C58 einen Wert "x" (text oder Zahl ist egal) hat, dann soll auf die Seite 2 (Tabelle2) gewechselt werden. Das ganze nochmal von Vorne für Seite 2 auf Seite 3.
Hier mein Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Zeile As Long, z As Integer
Dim Artikel As String, Einheit As String, Preis As Currency
Dim ersteZeile As Integer, letzteZeile As Integer
Zeile = ActiveCell.Row
Artikel = Cells(Zeile, 2)
Einheit = Cells(Zeile, 3)
Preis = Cells(Zeile, 4)
With Worksheets("Rechnung Seite 1")
.Activate
letzteZeile = 29
.Cells(letzteZeile, 3).Select
Do ' lezte Zeile suchen
If .Cells(letzteZeile, 3).Value = "" Then Exit Do
letzteZeile = letzteZeile + 1
Loop
' Positionen eintragen
.Cells(letzteZeile, 7).Value = Einheit
.Cells(letzteZeile, 3).Value = Artikel
.Cells(letzteZeile, 8).Value = Preis
.Cells(letzteZeile, 6).Select 'Position
End With
End Sub
Anzeige