Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
404to408
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
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

@ Josef Ehrensberger (wahrscheinlich)

@ Josef Ehrensberger (wahrscheinlich)
27.03.2004 11:09:36
Reto
Hallo Josef, du hast mir mal folgendes makro geschrieben:


' Druckbereich mittels Inputbox beim Schichtplan
Sub Druckbereich()
Dim rng As Range
Dim sFind As String
   With ActiveSheet
      Do
      sFind = InputBox("Bitte die gewünschte Kalenderwoche eingeben !", "erstellt Schichtplan mit 7 Wochen ab KW..")
         If sFind = "" Then Exit Sub
         If IsNumeric(sFind) And sFind > 0 And sFind < 54 Then
         Set rng = .Range("A5:A250").Find(what:=sFind, LookIn:=xlValues, lookat:=xlWhole)
            If Not rng Is Nothing Then
            .PageSetup.PrintArea = .Range(.Cells(rng.Row - 1, 1), .Cells(rng.Row + 26, 9)).Address
            .PrintPreview
            .PageSetup.PrintArea = ""
            Exit Sub
            End If
         Else
            If MsgBox("Ungültige Wochennummer!" & vbLf & vbLf & _
            "Wiederholen ?", vbRetryCancel + vbExclamation, "Hinweis") = vbCancel Then
            Exit Sub
            End If
         End If
      Loop
   End With
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Jetzt möchte ich in (Code) gerne umgeändert haben, so dass über die Zeile 2 jeweils die KW in der Inputbox eingeben kann und es mir jeweils diejenige Woche plus die nächsten 5 Wochen dazu auflistet. Leider tüftle ich jetzt schon 1 Woche rum und ich weiss nicht mehr wo ich was machen soll.
Weisst du Rat dafür?
https://www.herber.de/bbs/user/4702.xls
Gruss Reto

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: @ Josef Ehrensberger (wahrscheinlich)
27.03.2004 15:40:49
Josef Ehrensberger
Hallo Reto!
Ich weis nicht ob ich dich richtig verstanden habe,
aber schau mal.
https://www.herber.de/bbs/user/4704.xls

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.

(Sir Winston Churchill)


AW: @ Josef Ehrensberger (wahrscheinlich)
27.03.2004 17:15:06
Reto
Besten Dank Josef
Es ist genau das, was ich wollte. Nochmals danke und ein schönes Wochenende.
Gruss Reto
Auch dir ein schoenes WE! o.T.
27.03.2004 17:47:59
Josef Ehrensberger
Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.

(Sir Winston Churchill)


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige