Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wieso funktioniert in 2000 u. in 97 nicht ?

Forumthread: Wieso funktioniert in 2000 u. in 97 nicht ?

Wieso funktioniert in 2000 u. in 97 nicht ?
27.12.2003 19:12:16
Walter
Guten Abend Zusammen,
bei mir läuft alles soweit prima.
In meiner Firma haben wir Excel 97 drauf, hier wird meine Userform auch Richtig
angezeigt und läuft auch gut, jedoch wird das Label1 zum Beispiel nicht
angezeigt ???
Hier mein Makro:

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Geburtstagsliste").Unprotect ("ww")
Hier wird die Zahl angezeigt:
Label1.Caption = Format(Worksheets("Geburtstagsliste"). _
Range("A1").Value
Hiermit läuft in 2000 einwandfrei:
''Label1.Caption = Format(Worksheets("Geburtstagsliste").Range _
''      ("A1").Value, ("dddd,  dd.mm.yyyy"))     'muß rein zeigt sofort an
txtDate = Format(Now, "dd.mm.yyyy")                'muß hier stehen,damit
' zeigt akt.Datum an ...
'   in der txt Textbox an
Label5.Caption = Format(txtDate, "dddd")          'zeigt Tag als Name an
Application.ScreenUpdating = True
End Sub


Kann mir jeman einen Tip geben ?
Gruß Walter
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wieso funktioniert in 2000 u. in 97 nicht ?
27.12.2003 19:20:42
Nepumuk
Hallo Walter,
1. Benutze in deinem Fall besser das Activate-Ereignis.
2. ScreenUpdating ausschalten ist hier überflüssig.
3. Führe nach der Zuweisung an das Label die DoEvents-Funktion aus.
Gruß
Nepumuk
Ehrlich, weiß nicht ..
27.12.2003 19:30:08
Walter
Hallo Nepumuk,
ehrlich gesagt ich weiß nicht was ich machen soll.
Kannst Du so nett sein und dies in mein Beispiel bauen, wenn möglich ???
(DoEvents ?)
Gruß Walter
Anzeige
AW: Ehrlich, weiß nicht ..
27.12.2003 19:35:43
Nepumuk
Hallo Walter,
ich dachte so:

Option Explicit
Private Sub UserForm_Activate()
Sheets("Geburtstagsliste").Unprotect ("ww")
Label1.Caption = Format(Worksheets("Geburtstagsliste").Range("A1").Value, ("dddd,  dd.mm.yyyy"))
DoEvents
txtDate = Format(Date, "dd.mm.yyyy")
Label5.Caption = Format(Date, "dddd")
DoEvents
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Ehrlich, weiß nicht ..
27.12.2003 19:51:03
Walter
Hallo Nepumuk,
danke für die schnelle Hilfe.
Bei mir klappt das leider noch nicht.
Probiere auch noch etwas..
Gruß Walter
AW: Ehrlich, weiß nicht ..
27.12.2003 19:53:49
andre
hallo walter,
hast du mal andere zuweisungen getestet, z.b. label1.caption="Aha" oder msgbox format.... um den fehler einzugrenzen?
gruss andre
an Andre
27.12.2003 20:02:18
Walter
Hallo Andre,
habe folgen Zeile eingegeb:
Label1.Caption = "Hier ist Walter"
zeigt auch an.
Gruß Walter
Anzeige
AW: an Andre
27.12.2003 20:06:10
andre
... und nun mal der teil mit der msgbox format ...
gruss andre
AW: an Andre
27.12.2003 20:13:28
Walter
Hallo zum xxxx,
danke für die Hilfe.
Habe probiert, MSGBOX wird mit Text angezeigt.
Habe folgende Zeile eingefügt:
Label1.Caption = Format(Worksheets("Geburtstagsliste").Range("a1"))
Das Datum wird z.b. 27122003 also ohne Punkte angezeigt.
So wird allerdings nichts angezeigt:
Label1.Caption = Format(Worksheets("Geburtstagsliste").Range _
("A1").Value, ("dddd, dd.mm.yyyy"))

Gruß Walter
Anzeige
Jetzt mit Punkte !!!
27.12.2003 20:18:13
Walter
Hallo Zusammen,
so wird mit Punkte angezeigt also: 27.12.2003
Label1.Caption = Worksheets("Geburtstagsliste").Range("a1").Value
Gruß Walter
AW: Jetzt mit Punkte !!!
27.12.2003 20:22:22
andre
hallo walter,
wenn mal was nicht so kommt wie man's erwartet nehme ich z.b. 3 varianten zum testen
- ausdruch direkt überwachen (überwachung hinzufügen oder mit der maus)
- in eine variable schreiben und diese überwachen
- in eine msgbox schreiben
...
gruss andre
Anzeige
AW: Jetzt mit Punkte !!!
27.12.2003 20:28:16
Walter
Hallo Andre,
also so gut bin ich nicht.
Weiß garnicht was Du meinst. Habe gerad die rechte Maustaste gedrückt und
Überwachung hinzufügen gefunden und dann...
Gruß Walter
Ich habe Lösung gefunden !
28.12.2003 11:48:06
Walter
Guten Morgen Zusammen,
ich habe eine Lösung gefunden.
Habe aus einem alten Makro dies übernommen:
' Label1.Caption = Format(Date, "YYYY") 'Orginal von NWPL
Damit zeigt zumindest an, nun muß ich noch einiges anpassen.
Gruß Walter
Anzeige
;

Forumthreads zu verwandten Themen

Warum funktioniert der Code nicht ?
TomTom


Hi,
ich habe auf meinem Scheet 2 Textboxen untereinander (1 und 2)
Da werden nun daten reingeladen. Entsprechend der Texteingabe, werden auch die Textboxen entsprechend hoch. Mein Ziel war es, wenn in der Textbox1 so viel Text drin steht, dass die Untere Kante der Textbox1 über di...
10.09.2008 13:22:37
Thread-ID: 1008773
3 Beiträge
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
SVERWEIS geht nicht
gio

Hallo Profis,
brauche Eure Hilfe.
Ich erstelle mir in einer Zelle über eine Formel eine 3stellige Zahl oder Buchstabenkombination.
=(LINKS(A1;3)) ergibt z.B. 123 oder abc
Das passt soweit.
Über Sverweis suche ich mir dann zu 123 oder abc dazugehörige Daten.
Das funzt nic...
29.10.2008 09:54:21
Thread-ID: 1020154
5 Beiträge
Anzeige
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Warum funktioniert select bei Range nicht??
Lars

Hallo,
eigentlich dachte ich, dass ich etwas VBA kann, aber folgendes Problem ist unerklärlich für mich:
Warum wird die Zelle B28 auf Tabellenblatt "overview" nicht farblich markiert? Fehlermeldung: Select-Methode funktioniert nicht.
Private Sub CheckBox1_Click() If CheckBox1.Valu...
06.11.2008 14:29:25
Thread-ID: 1022294
5 Beiträge
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
Anzeige
VERWEIS funktioniert nicht
Markus

Hallo!
Ich bin recht verzeifelt, vielleicht kann mir jemand weiterhelfen.
Ich habe eine Exceldatei mit mehreren Arbeitsblättern (Spielergebnisse einer Mannschaft in verschiedenen Saisons).
In einem finalen Arbeitsblatt möchte ich nun, dass die Ergebnisse eines beliebigen Spielers (A...
09.11.2008 21:22:36
Thread-ID: 1023113
10 Beiträge
SVERWEIS geht nicht
Schmidt

Guten Tag
In der Tabelle komm ich mit der Funktion SVERWEIS nicht weiter.
Würde mir bitte jemand helfen.
Danke im Voraus
https://www.herber.de/bbs/user/56652.xls
10.11.2008 15:44:06
Thread-ID: 1023236
7 Beiträge
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Anzeige
Makro funktioniert nur teilweise
Werner

Hallo zusammen,
der erste teil des Makros funktioniert sehr gut, d.h. wenn in Zelle L11 die 1 steht und ich in der MsgBox auf Ok klicke wird die Berechnung durchgeführt.
Wenn in der Zelle N11 die 1 steht soll der nachfolgende Teil des Makros ausgelöst werden, was es aber nicht macht. W...
03.01.2009 18:52:00
Thread-ID: 1036598
5 Beiträge
Warum funktioniert das Verknüpfen nicht ?
TomTom


Hallo,
also, ich möchte per Makro eine andere Datei in mein Excel Sheet als Symbol einbinden. Also das Gleiche, was man über EINFÜGEN / OBJEKT / AUS DATEI ERSTELLEN (als Symbol) macht :
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
If D...
01.02.2009 22:58:20
Thread-ID: 1046037
3 Beiträge
wieso funktioniert das nicht?
jonas

Sub text2() Dim s As sting For s = 1 To 56 If Cells(s, 1).interir.ColorIndex = 2 Then Value Cells(s, 1) = 4 Else: Value Cells(s, 1) = 5 End If End Sub
ich will, wenn die zelle (s,1) den farbindex 2 hat, dass sich der wert der zelle auf 4 ändert, ist dies nicht der fall, soll sie den wert...
23.03.2009 07:19:08
Thread-ID: 1062761
12 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige