Excel->Makros->Visual Basic->Frage!

[Jabba]

Hm, sieht aus wie ein O und nicht wie eine 0 (null)
Aber selbst wenn es ein O wäre, sollte es durchlaufen... mom

EDIT: Ich verstehe das nicht, das muss funktionieren...
Habs gerade nochmal aufm Mac probiert (2004 und X)
Beende doch einfach mal alles und starte nur diese Tabelle neu...

EDIT2: WAS steht denn in den Zellen? Sind doch Zahlen oder Texte, oder?
Sind es Bilder, Formeln, wavs oder anderes?
Klappts jetzt?

 

[misterbecks]

Hm, sieht aus wie ein O und nicht wie eine 0 (null)
Aber selbst wenn es ein O wäre, sollte es durchlaufen... mom

EDIT: Ich verstehe das nicht, das muss funktionieren...
Habs gerade nochmal aufm Mac probiert (2004 und X)
Beende doch einfach mal alles und starte nur diese Tabelle neu...

EDIT2: WAS steht denn in den Zellen? Sind doch Zahlen oder Texte, oder?
Sind es Bilder, Formeln, wavs oder anderes?
Klappts jetzt?

Also: Ich habe alles nochmal neu gestartet. In den Zellen stehen Buchstaben. Bei der Bedingung von If bricht es mit einem Laufzeitfehler '13' ab (Typen unverträglich). Kann es denn nicht sein, dass er den Vergleich d = 0 einfach nicht durchfühen kann oder braucht es evtl. noch eine Methode für die Then Bedingung?

Auf einer Dose kann ich es leider erst am Mittwoch testen....

 

[Jabba]

Das ist mir schleierhaft, habe es doch mit beiden Mac Offices ausprobiert...
Eine Then Anweisung brauchst Du nicht.
Wenn Typen unverträglich kommt, und das bei If i = 0, dann müsstest Du i vorher anders deklariert haben, was ich aber an Deinem Bild nicht sehe... d.h. eigentlich müsst i Variant sein, wenn Du es nicht explizit anders festgelegt hast hast (z.B. in einem Weiteren Makros in dieser Tabelle und i dann public ist)

Irgendwas ist da faul... nur weis ich nicht, was?
*ratlos*

 

[misterbecks]

Das ist mir schleierhaft, habe es doch mit beiden Mac Offices ausprobiert...
Eine Then Anweisung brauchst Du nicht.
Wenn Typen unverträglich kommt, und das bei If i = 0, dann müsstest Du i vorher anders deklariert haben, was ich aber an Deinem Bild nicht sehe... d.h. eigentlich müsst i Variant sein, wenn Du es nicht explizit anders festgelegt hast hast (z.B. in einem Weiteren Makros in dieser Tabelle und i dann public ist)

Irgendwas ist da faul... nur weis ich nicht, was?
*ratlos*

Bezieht sich denn das i in der Schleife auf den Inhalt der Zelle?

 

[hurrycane]

...Irgendwas ist da faul... nur weis ich nicht, was?
*ratlos*

if i = ""
müßte klappen.

hurrycane

 

[Jabba]

Ohje!
Mac Office sei dank... hurrycane hast recht. Sicher, eigentlich wäre es egal, nur aber den Mac scheint es zu stören, auf einer Win Kiste ist es egal.

Also, "" statt Null... na klasse.
Wieder ein Grund mehr, Mac Office in die Tonne zu treten.

@Misterbekcs
Ja, das i steht für jeglichen Zellinhalt des ausgewählten Bereichs, d.h. mit for each i kannst Du schnell x-beliebige Bereiche auf bestimmte Inhalte etc. prüfen.
Gut, das wäre gelöst...
Dann kann ich endlich meinen Intel-iMac auspacken!

Tschööö!

 

[hurrycane]

... aber den Mac scheint es zu stören, auf einer Win Kiste ist es egal.

Kommt auf das M$ Betriebssystem ab. Ist jedesmal anders. rotfl

Dann kann ich endlich meinen Intel-iMac auspacken!

Tschööö!

Na dann viiiiiel Spass!

hurrycane

 

[misterbecks]

Klasse, es funktioniert. Vielen Dank euch beiden.

 

[misterbecks]

So, nun habe ich das Makro auch auf einer Dose getestet. i = 0 geht auch nicht (Excel 97). Aber i = "" funktioniert. Nun gut....

Allerdings sind jetzt noch ein paar Fragen aufgetaucht:

-Kann man ein Makro so schützen, das es zwar für jeden Benutzer ausführbar bleibt, aber man es nicht (z.B. ohne Passwort) ändern kann?
-Wie schalte ich die Rückfrage nach dem Überschreiben ab, wenn ich eine Datei speichern lasse?
-Wie kann ich in das Makro eine Message Box einbauen, die den Benutzer fragt, ob er das Makro wirklich ausführen will?

 

[Jabba]

So, nun habe ich das Makro auch auf einer Dose getestet. i = 0 geht auch nicht (Excel 97). Aber i = "" funktioniert. Nun gut....

, naja, liegt ev. an 97... ich mache solche Abfragen übrigens meist mit beiden Bedingungen, d.h. auf 0 und ""...

-Kann man ein Makro so schützen, das es zwar für jeden Benutzer ausführbar bleibt, aber man es nicht (z.B. ohne Passwort) ändern kann?

Klar, im VBA Editor Rechtsklick auf Dein Modul, Eigneschaften Schutz...-> Password

-Wie schalte ich die Rückfrage nach dem Überschreiben ab, wenn ich eine Datei speichern lasse?

Application.DisplayAlerts = False
Das schaltet alle Meldungen von Excel aus, achtung, mit True wieder einschalten!
Application.DisplayAlerts = False
Workbooks("test.xls").Close (z.B. !)
Application.DisplayAlerts = True

-Wie kann ich in das Makro eine Message Box einbauen, die den Benutzer fragt, ob er das Makro wirklich ausführen will?

Mit MsgBox

starten = MsgBox("Wirklich ausführen?", 4, "Makrostart!")
If starten = 7 Then
Exit Sub
Else
End If

Oben die 4 steht für die Schaltfläche JA/Nein...
Dann erhält starten einen Wert, je nach Eingabe, die 7 steht für Nein, 1 ist Ja.


Ich sehe, da kommt ein neuer VBA Junkie! Sehr schön!
HTH
Claus

 

[misterbecks]

(...) Ich sehe, da kommt ein neuer VBA Junkie! Sehr schön!
HTH
Claus

Eventuell. Für Excel ist es sehr hilfreich. Vielen Dank für die Antwort.

 

[misterbecks]

Ich habe mal wieder eine Frage.

Kann ich in/mit einem Makro Excel beenden?

Ich kann mit zwar nicht vorstellen, dass es irgendwie funktioniert, aber vielleicht gibt es eine Möglichkeit......