Kalenderwoche = #WERT | Herbers Excel-Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Activate() Dim i As Long Dim rngReadIn As Range, rngCell As Range Set rngReadIn = Sheets("Umbauplan").Range("A4:A11,A15:A21") For Each rngCell In rngReadIn With Me.ComboBox1 .AddItem Format(rngCell, "DDD.DD.MMM.YYYY") .List(.ListCount - 1, 1) = rngCell.Row End With Next Me.ComboBox1.Value = Format(Date, "DDD.DD.MMM.YYYY") ComboBox1.SetFocus Call namen_eintragen Dim lastRow As Long With Sheets("Speicherung") .Unprotect Password:="vetro" lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row If (.Cells(lastRow + 1, 2) = "") Then Me.TextBox100.Value = .Cells(lastRow, 2) Else Me.TextBox100.Value = .Cells(lastRow + 1, 2) End If .Protect Password:="test" End With End Sub

Hallo Hajo
Das ist nun der Code zum einfügen & ausdrucken.
In E6 wird das Datum eingetragen. In F1 sollte nun die KW rauskommen.
Danke & Gruß
Heinz


'--------------Neu Wochenumbau W311
Private Sub CommandButton6_Click()
Application.ActivePrinter = "NRG MP 2510 PCL 5e auf Ne01:"
Application.ScreenUpdating = False
Dim wksMaschine As Worksheet, bolDrucken As Boolean
If Not Me.CheckBox10 And Not Me.CheckBox11 And Not Me.CheckBox12 And Not Me.CheckBox13 And Not  _
Me.CheckBox14 And Not Me.CheckBox15 And Not Me.CheckBox16 Then
MsgBox "Kein Linie ausgewählt!"
Exit Sub
End If
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte Datum wählen!"
Exit Sub
End If
Set wksMaschine = Worksheets("W311")
Application.ScreenUpdating = False
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte Datum wählen!"
End If
Worksheets("W311").Unprotect Password:="vetro"
Worksheets("W311").Visible = True
With wksMaschine
.Range("E6").Value = Mid(Me.ComboBox1, 5) 'Zelle E6 ist als Datum korrekt formatiert
.Range("F1").Value = CDate(Mid(Me.ComboBox1, 5)) 'Zelle F1 Für Kalenderwoche
.Range("E4") = "Artikel Bez.:  " & Me.TextBox2 'Artikelbeschreibung
.Range("A4") = "Art. Nr.:  " & Me.TextBox3 'ArtikelNummer
.Range("I4") = "Mündung: " & Me.TextBox4 'Mündung
If CheckBox11 = True Then
Worksheets("W311").PrintOut
End If
End With

Private Sub ComboBox1_Change() Dim Zeile As Long, SAP_Nr As Variant, ZelleArtikel As Range Dim wksArtikel As Worksheet, wksUmbau As Worksheet Dim SpalteMaschine As Long Set wksUmbau = Worksheets("Umbauplan") Set wksArtikel = Worksheets("Artikeln") '-------311 SpalteMaschine = 3 'Spalte mit den SAP-Nummern für Maschine 311 im Blatt Umbauplan If Me.ComboBox1.ListIndex <> -1 Then With Me.ComboBox1 SAP_Nr = wksUmbau.Cells(.List(.ListIndex, 1), SpalteMaschine) End With With wksArtikel 'SAP-Nummer in Spalte A (1) suchen Set ZelleArtikel = .Columns.Find(What:=SAP_Nr, LookIn:=xlValues, LookAt:=xlWhole) If ZelleArtikel Is Nothing Then MsgBox "SAP_Nr " & SAP_Nr & " nicht gefunden!" Else Zeile = ZelleArtikel.Row Me.TextBox1 = SAP_Nr Me.TextBox2 = .Cells(Zeile, 3).Text 'Artikelbeschreibung Me.TextBox3 = .Cells(Zeile, 2).Text 'ArtikelNummer Me.TextBox4 = .Cells(Zeile, 4).Text 'Mündung Me.TextBox5 = .Cells(Zeile, 5).Text 'Farbe ' Me.TextBox6 = .Cells(Zeile, 99).Text '+ Spalte ??? ' Me.TextBox7 = .Cells(Zeile, 99).Text '- Spalte ??? ' Me.TextBox8 = .Cells(Zeile, 99).Text 'Gewicht Spalte ??? End If End With

Beliebteste Forumthreads (12 Monate)

Kalenderwoche = #WERT | Herbers Excel-Forum

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread