Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Etiketten mit fortlfd, Nummer

Etiketten mit fortlfd, Nummer
12.05.2008 22:15:00
Helmut
Hallo zusammen,
ich habe ein riesen Problem und bekomme das nicht hin.
ich muss Etiketten drucken, die in einem Feld eine fortlaufende Nummer enthalten. Die Nummern sind vorgegeben und befinden sich in der Excel-Spalte (V4 - Vxx). Vba soll nach Betätigung eines Drucker-Buttons die erste Nummer (V4)in das Feld B23 einfügen, dann drucken. Anschließend anfragen ob V5 einen Zahlenwert enthält. Wenn ja dann V5 einfügen und drucken. dann Nachfragen ob V6 einen Zahlenwert enthält wenn ja , dann drucken. usw.
Wenn die Zahlenwerte in Spalte V abgearbeitet sind, dann drucken einstellen.
Wäre super nett wenn mir jemand helfen könnte.
Danke! Gruß Helmut

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Etiketten mit fortlfd, Nummer
12.05.2008 22:42:00
ramses
Hallo
Warum machst du das nicht in Word und nimmst deine EXCEL Mappe als Datenbasis.
Der in Word integrierte Etikettendruck Assistent nimmt dir das ganze ab.
WENN Bedingungen können dort auch eingefügt werden.
Gruss Rainer

AW: Etiketten mit fortlfd, Nummer
13.05.2008 08:00:00
UweD
Hallo
so ginge es:
VB-Code:

Private Sub CommandButton1_Click()
    On Error GoTo Fehler
    Dim SP%, ZE&, LR&, TB1, Zelle, Nummer$
    Set TB1 = ActiveWorkbook.Sheets("Tabelle1") 'aus bestimmtem Blatt
    Nummer = "A1" 'Zelle mit der variablen Nr.
    SP = 22 'Spalte V
    ZE = 4 'ab Zeile 4
    LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
    Application.ScreenUpdating = False
    For Each Zelle In Range(Cells(ZE, SP), Cells(LR, SP)).SpecialCells(xlCellTypeConstants, 1)
        TB1.Range(Nummer) = Zelle.Value 'Nr eintragen
        ActiveWindow.SelectedSheets.PrintOut Copies:=1 ' Druckbereich ausdrucken
    Next
Fehler: 'Fehlerbehandlung
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
hier eine Mustermappe: https://www.herber.de/bbs/user/52307.xls
Gruß UweD
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige