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
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If Abfrage funktioniert nicht

If Abfrage funktioniert nicht
22.01.2004 13:51:47
marc
hallo zusammen,
mit meiner If- Abfrage habe ich bis dato keine Probleme.
Ab heute ist in dem Code etwas nicht in Ordnung. Warum ?
Info: In Sheets("Aus.Gr).Range("G2")steht Formel =Heute().
marc :o) ...

Sub DayStep2_()
Dim wb As Workbook
Set wb = ActiveWorkbook
Application.ScreenUpdating = False
Worksheets("Aus.Gr").Activate
Sheets("Werte").Range("G2") = Sheets("Aus.Gr").Range("G2").Value
If [H5] = "mo" Then
Worksheets("Werte").Activate
Range("G2").Copy
Workbooks.Open ("C:\Gera\T_B\Ber.xls")
Worksheets("Mo01").Activate
Range("G2").PasteSpecial Paste:=xlValue, Paste:=xlFormats
Range("J2").Activate
Worksheets("Ges_F").Activate
Range("D4").PasteSpecial Paste:=xlValue, Paste:=xlFormats
Range("J2").Activate
End If
If [H5] = "di" Then
Worksheets("Werte").Activate
Range("G2").Copy
Workbooks.Open ("C:\Gera\T_B\Ber.xls")
Worksheets("Di01").Activate
Range("G2").PasteSpecial Paste:=xlValue, Paste:=xlFormats
Range("J2").Activate
Worksheets("Ges_F").Activate
Range("D4").PasteSpecial Paste:=xlValue, Paste:=xlFormats
Range("J2").Activate
End If
If [H5] = "mi" Then
Worksheets("Werte").Activate
Range("G2").Copy
Workbooks.Open ("C:\Gera\T_B\Ber.xls")
Worksheets("Mi01").Activate
Range("G2").PasteSpecial Paste:=xlValue, Paste:=xlFormats
Range("J2").Activate
Worksheets("Ges_F").Activate
Range("D4").PasteSpecial Paste:=xlValue, Paste:=xlFormats
Range("J2").Activate
End If
If [H5] = "do" Then
Worksheets("Werte").Activate
Range("G2").Copy
Workbooks.Open ("C:\Gera\T_B\Ber.xls")
Worksheets("Do01").Activate
Range("G2").PasteSpecial Paste:=xlValue, Paste:=xlFormats
Range("J2").Activate
Worksheets("Ges_F").Activate
Range("D4").PasteSpecial Paste:=xlValue, Paste:=xlFormats
Range("J2").Activate
End If
If [H6] = "fr" Then
Range("H2").Activate
Sheets("Werte").Range("H2") = Sheets("Aus.Gr").Range("H2").Value
Worksheets("Werte").Activate
Range("H2").Copy
Workbooks.Open ("C:\Gera\T_B\Ber.xls")
Worksheets("Fr01").Activate
Range("G2").PasteSpecial Paste:=xlValue, Paste:=xlFormats
Range("J2").Activate
Worksheets("Ges_F").Activate
Range("D4").PasteSpecial Paste:=xlValue, Paste:=xlFormats
Range("J2").Activate
End If
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
Sheets(2).Activate
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Abfrage funktioniert nicht
22.01.2004 14:06:30
Andreas Walter
Zu wenig Info (obwohl so viel Code)
> Ab heute ist in dem Code etwas nicht in Ordnung.
Was passiert
Was sollte passieren
Fehlermeldung
An was erkennst Du, dass etwas nicht in Ordnung ist
Hast Du versucht MSGBOX Befehl einzufügen, um das Problem einzugrenzen
AW: If Abfrage funktioniert nicht
22.01.2004 20:58:17
marc
hallo Andreas,
sorry,dass ich so spät antworte.
Also in [H5] steht der aktuelle Wochentag.Bei der Abfrage zB:heute ist der Donnerstag
also if [H5]= "do" Then soll das Programm den Wert aus Sheet("Werte").Range("G2")
kopieren und weiter gehen.
Nun der Coder geht an der Abfrage vorbei bis an End If und das war's.
marc :o)


Sub DayStep2_()
Dim wb As Workbook
Set wb = ActiveWorkbook
Application.ScreenUpdating = False
Worksheets("Aus.Gr").Activate
Sheets("Werte").Range("G2") = Sheets("Aus.Gr").Range("G2").Value
If [H5] = "do" Then
Worksheets("Werte").Activate
Range("G2").Copy
Workbooks.Open ("C:\Gera\T_B\Ber.xls")
Worksheets("Do01").Activate
Range("G2").PasteSpecial Paste:=xlValue, Paste:=xlFormats
End Sub

Anzeige
AW: If Abfrage funktioniert nicht .Warum
22.01.2004 20:58:58
marc
hallo Andreas,
sorry,dass ich so spät antworte.
Also in [H5] steht der aktuelle Wochentag.Bei der Abfrage zB:heute ist der Donnerstag
also if [H5]= "do" Then soll das Programm den Wert aus Sheet("Werte").Range("G2")
kopieren und weiter gehen.
Nun der Coder geht an der Abfrage vorbei bis an End If und das war's.
marc :o)


Sub DayStep2_()
Dim wb As Workbook
Set wb = ActiveWorkbook
Application.ScreenUpdating = False
Worksheets("Aus.Gr").Activate
Sheets("Werte").Range("G2") = Sheets("Aus.Gr").Range("G2").Value
If [H5] = "do" Then
Worksheets("Werte").Activate
Range("G2").Copy
Workbooks.Open ("C:\Gera\T_B\Ber.xls")
Worksheets("Do01").Activate
Range("G2").PasteSpecial Paste:=xlValue, Paste:=xlFormats
End Sub

Anzeige
AW: If Abfrage funktioniert nicht .Warum
23.01.2004 09:04:53
Andreas Walter
Dann wie gesagt MSGBOX
...
MSGBOX "*" & [H5] & "*" & Len([H5])
If [H5] = "do" Then
...
Un genau ansehen, was in [H5] ist (Sonderzeichen, Zwischenräume usw.)
AW: marc sagt DANKE Andreas
23.01.2004 12:53:38
marc
hallo Andreas,
danke fuer den MsgBox Tipp ich werde es gleich testen.
marc :O) ....

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige