Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Egal ob groß oder klein Schreiben

Egal ob groß oder klein Schreiben
25.11.2005 09:56:33
Heinz
Hallo Leute
Habe unteren Code
Ich möchte Bitte unabhängig ob "S" groß oder "s" geschrieben wird,trotzdem "1 Schicht" eingetragen wird.
Könnte mir bitte jemand helfen.
Danke Heinz
Case Is = ("S")
Cells(i, 4) = ("1 Schicht")
Cells(i, 6) = 8

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Egal ob groß oder klein Schreiben
25.11.2005 10:04:54
Rainer
Hallo,
probier mal so:

Sub test()
i = 1
Select Case UCase(Range("A1"))
Case Is = ("S")
Cells(i, 4) = ("1 Schicht")
Cells(i, 6) = 8
End Select
End Sub

MfG
AW: Egal ob groß oder klein Schreiben
25.11.2005 10:20:06
Heinz
Hallo Rainer
Bekomm's leider nicht hin.
Habe jetzt einen grösseren Teil vom Code eingefügt.
Könntest Du mir Bitte nochmals helfen
Danke & Gruß Heinz

Sub Stundeneintrag()
Dim i As Integer
On Error Resume Next
With Sheets("Jänner")
For i = 7 To 257
Case Is = ("S")
Cells(i, 4) = ("1 Schicht")
Cells(i, 6) = 8
Case Else
Next i
End With
End Sub

Anzeige
AW: Egal ob groß oder klein Schreiben
25.11.2005 10:27:59
Rainer
Hallo,
mir fehlt die Select Case Anweisung in Deinem Code...
Gruß
AW: Egal ob groß oder klein Schreiben
25.11.2005 10:30:23
Heinz
Hallo Rainer
Schicke jetzt den kompletten Code
Gruß Heinz
'-------Stundeneintragen bei Schicht,Urlaub & Krank---------

Sub Stundeneintrag()
Dim i As Integer
On Error Resume Next
With Sheets("Jänner")
For i = 7 To 257
Select Case Cells(i, 4).Value
Case Is = ("1")
Cells(i, 4) = ("1 Schicht")
Cells(i, 6) = 8
Case Is = ("2")
Cells(i, 4) = ("2 Schicht")
Cells(i, 6) = 8
Case Is = ("3")
Cells(i, 4) = ("3 Schicht")
Cells(i, 6) = 8
Case Is = ("S")
Cells(i, 4) = ("1 Schicht")
Cells(i, 6) = 8
Case Is = ("1BF")
Cells(i, 4) = ("Bez. Freiz.")
Cells(i, 6) = 8
Case Is = ("2BF")
Cells(i, 4) = ("Bez. Freiz.")
Cells(i, 6) = 8
Case Is = ("3BF")
Cells(i, 4) = ("Bez. Freiz.")
Cells(i, 6) = 8
Case Is = ("SBF")
Cells(i, 4) = ("Bez. Freiz.")
Cells(i, 6) = 8
Case Is = ("1B")
Cells(i, 4) = ("1 Schicht")
Cells(i, 5) = ("Bringschicht")
Cells(i, 6) = 8
Case Is = ("1B")
Cells(i, 4) = ("1 Schicht")
Cells(i, 5) = ("Bringschicht")
Cells(i, 6) = 8
Case Is = ("2B")
Cells(i, 4) = ("2 Schicht")
Cells(i, 5) = ("Bringschicht")
Cells(i, 6) = 8
Case Is = ("3B")
Cells(i, 4) = ("3 Schicht")
Cells(i, 5) = ("Bringschicht")
Cells(i, 6) = 8
Case Is = ("1U"), ("2U"), ("3U"), ("SU")
Cells(i, 4) = ("Urlaub")
Cells(i, 8) = 8
Case Is = ("1K"), ("2K"), ("3K"), ("SK")
Cells(i, 4) = ("Krank")
Cells(i, 9) = 8
Case Is = ("1Ü")
Cells(i, 4) = ("1 Schicht")
Cells(i, 5) = ("Ü.Stunden")
Case Is = ("2Ü")
Cells(i, 4) = ("2 Schicht")
Cells(i, 5) = ("Ü.Stunden")
Case Is = ("3Ü")
Cells(i, 4) = ("3 Schicht")
Cells(i, 5) = ("Ü.Stunden")
Case Else 'andere Einträge = Inhalte löschen in Zeile i, Spalte F bis P
End Select
Next i
End With
End Sub

Anzeige
AW: Egal ob groß oder klein Schreiben
25.11.2005 10:41:27
Rainer
Probier mal in aller Ruhe und gib mir noch mal Bescheid ;-)

Sub Stundeneintrag()
Dim i As Integer
On Error Resume Next
With Sheets("Jänner")
For i = 7 To 257
Select Case UCase(Cells(i, 4))
Case Is = ("1")
Cells(i, 4) = ("1 Schicht")
Cells(i, 6) = 8
Case Is = ("2")
Cells(i, 4) = ("2 Schicht")
Cells(i, 6) = 8
Case Is = ("3")
Cells(i, 4) = ("3 Schicht")
Cells(i, 6) = 8
Case Is = ("S")
Cells(i, 4) = ("1 Schicht")
Cells(i, 6) = 8
Case Is = ("1BF")
Cells(i, 4) = ("Bez. Freiz.")
Cells(i, 6) = 8
Case Is = ("2BF")
Cells(i, 4) = ("Bez. Freiz.")
Cells(i, 6) = 8
Case Is = ("3BF")
Cells(i, 4) = ("Bez. Freiz.")
Cells(i, 6) = 8
Case Is = ("SBF")
Cells(i, 4) = ("Bez. Freiz.")
Cells(i, 6) = 8
Case Is = ("1B")
Cells(i, 4) = ("1 Schicht")
Cells(i, 5) = ("Bringschicht")
Cells(i, 6) = 8
Case Is = ("1B")
Cells(i, 4) = ("1 Schicht")
Cells(i, 5) = ("Bringschicht")
Cells(i, 6) = 8
Case Is = ("2B")
Cells(i, 4) = ("2 Schicht")
Cells(i, 5) = ("Bringschicht")
Cells(i, 6) = 8
Case Is = ("3B")
Cells(i, 4) = ("3 Schicht")
Cells(i, 5) = ("Bringschicht")
Cells(i, 6) = 8
Case Is = ("1U"), ("2U"), ("3U"), ("SU")
Cells(i, 4) = ("Urlaub")
Cells(i, 8) = 8
Case Is = ("1K"), ("2K"), ("3K"), ("SK")
Cells(i, 4) = ("Krank")
Cells(i, 9) = 8
Case Is = ("1Ü")
Cells(i, 4) = ("1 Schicht")
Cells(i, 5) = ("Ü.Stunden")
Case Is = ("2Ü")
Cells(i, 4) = ("2 Schicht")
Cells(i, 5) = ("Ü.Stunden")
Case Is = ("3Ü")
Cells(i, 4) = ("3 Schicht")
Cells(i, 5) = ("Ü.Stunden")
Case Else 'andere Einträge = Inhalte löschen in Zeile i, Spalte F bis P
End Select
Next i
End With
End Sub

MfG Rainer
Anzeige
AW: Egal ob groß oder klein Schreiben
25.11.2005 11:14:21
Heinz
Hallo Rainer
Ja Danke, Funkt. Einwandfrei
Danke & Gruß Heinz

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige