makro auswählen über wert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

moin
hab nach geschaut aber das makro macht was es will
was ist da jetzt falsch?


Sub test2()
Sheets("Eingaben").Select
If Range("e12").Value > 11 Then
Sheets("bis 10. WE").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("bis 10. WE").Select
Sheets("bis 10. WE").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ChDir "F:\internal\NAM-Daten\NAMRechnungsduplikate\nam_rechnung"
Sheets("Eingaben").Select
End If
If Range("e12").Value < 10 > 20 Then
Sheets("bis 20. WE").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("bis 20. WE").Select
Sheets("bis 20. WE").Copy
Cells.Select
Range("A16").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("F24:H24").Select
Application.CutCopyMode = False
Dim SpeicherName As String
SpeicherName = "F:\internal\NAM-Daten\NAMRechnungsduplikate\nam_rechnung\" & Range("f24").Value & "" & "_" & Date & Range("g35").Value & "" & ".xls"
ActiveWorkbook.SaveAs Filename:=SpeicherName
End If
End Sub

Hallo Steffen,
nö, geht so nicht. In Zeile 3 schreibst Du: If Range("e12").Value &gt 11 Then
also größer 11? In Deiner ersten Anfrage hast Du gesagt: kleiner 11. Und in Zeile 15
If Range("e12").Value &lt 10 &gt 20 Then heißt kleiner 10 bis größer 20? Wahrscheinlich meinst Du Werte zwischen 11 und 20. Und diese Programmzeile wird auch nie funktionieren! Wenn überhaupt dann so:
if Range("E12").Value &gt 10 And range("E12").Value &lt 21 then
Aber eigentlich wäre hier, wie schon von Dieter angemerkt, die Verwendung von Select sinnvoller:
Sub test2()
Sheets("Eingaben").Select
Select Case Range("E12").Value
Case &lt 11
Deine Anweisungen für Werte kleiner 11
Case 11 to 20
Deine Anweisungen für Werte zwischen 11 und 20
Case 21 to 40
Deine Anweisungen für Werte zwischen 21 und 40
Case 41 to 100
Deine Anweisungen für Werte zwischen 41 und 100
Case 101 to 200
Deine Anweisungen für Werte zwischen 101 und 200
Case &gt 200
Deine Anweisungen für Werte größer 200 (In Deiner Anfrage hattest Du 2000?
geschrieben)
Versuch es mal so.
Gruß Frank

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

makro auswählen über wert

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

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread