PC-Experience - IT-Portal für Reviews, Artikel, Windows Tipps und Problemlösungen -

PC-Experience
Registrierungdie Foren-Regelndie 2016 überarbeiteten FAQs für unser CMS und das ForumImpressum und DatenschutzSucheKalenderMitgliederlistezu unseren ArtikelnTutorialsZur Startseitezur Forenübersicht


PC-Experience » Software Foren: » Microsoft-Office 97 bis Office 2021: » Excel 97 Makro um Zahlen auszuschließen » Hallo Gast [Anmelden|Registrieren]
Letzter Beitrag | Erster ungelesener Beitrag Druckvorschau | An Freund senden | Thema zu Favoriten hinzufügen
Neues Thema erstellen Thema ist geschlossen
Zum Ende der Seite springen Excel 97 Makro um Zahlen auszuschließen
Beiträge zu diesem Thema Autor Datum
 Excel 97 Makro um Zahlen auszuschließen Binky 28.06.2005 08:36
 RE: Excel 97 Makro um Zahlen auszuschließen Heaven 29.06.2005 14:55

Autor
Beitrag « Vorheriges Thema | Nächstes Thema »
Binky Binky ist männlich
Power-Member


Dabei seit: 14.06.2004
Beiträge: 1.211
Herkunft: Sauerland, OE

Excel 97 Makro um Zahlen auszuschließen Auf diesen Beitrag antworten Zitatantwort auf diesen Beitrag erstellen Diesen Beitrag editieren/löschen Diesen Beitrag einem Moderator melden       Zum Anfang der Seite springen

Schönen guten Morgen,

wieder ein Makro Problem. Kann man etwas ähnliches programmieren bzw. schreiben:

If B2 "is integer" Then .....

Also wenn eine Ganze Zahl in Zelle B2 steht soll eine Aktion folgen.

Bzw. was noch besser wäre: Nur wenn eine Buchstabenfolge von mindestens drei Buchstaben in B2 steht soll eine Aktion ausgeführt werden.

Vielleicht kann ja einer dabei helfen.

_______________________________________________________
edit:

hat sich erledigt

habe es wie folgt gelöst:


Sub Seite_Drucken()


If Left(ActiveSheet.[B2].Value, 1) = "t" Then
' Wenn von links an das erste Zeichen t ist dann

Feld1 = Range("B2").Value
' Feld 1 ist gleich Zelle B2

Application.Goto Reference:=Feld1
' Der erste Bereich wird Markiert, da er so genannt wurde, wie in B2 deklariert

ActiveSheet.PageSetup.PrintArea = Feld1
' Der Markierte Bereich wird zum Druckbereich

ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Der Druckbereich wird ein Mal ausgedruckt

Else: GoTo Ende:
' Sollte die Wenn (IF) Klausel nicht stimmen, geh zum Punkt Ende

End If
' Ende der IF Anweisung

Ende:
' Sprungmarke Ende

End Sub



Ist jetzt ein komplettes Makro mit der IF Klausel, die den Rest der Funktion zulässt.

Vielleicht kann auch dieses jemand gebrauchen.

Gruß juhu

Binky@work

Dieser Beitrag wurde 3 mal editiert, zum letzten Mal von Binky: 29.06.2005 14:44.

28.06.2005 08:36 Binky ist offline Beiträge von Binky suchen Nehmen Sie Binky in Ihre Freundesliste auf
Heaven Heaven ist weiblich
Support/Moderatorin


Dabei seit: 02.12.2003
Beiträge: 4.014
Herkunft: Nürnberg

Auf diesen Beitrag antworten Zitatantwort auf diesen Beitrag erstellen Diesen Beitrag editieren/löschen Diesen Beitrag einem Moderator melden       Zum Anfang der Seite springen

Danke dir für die Rückmeldung und das Teilen deines Makro-Wissens oki

- closed -

cu
Heaven
29.06.2005 14:55 Heaven ist offline E-Mail an Heaven senden Homepage von Heaven Beiträge von Heaven suchen Nehmen Sie Heaven in Ihre Freundesliste auf
Baumstruktur | Brettstruktur
Neues Thema erstellen Thema ist geschlossen
PC-Experience » Software Foren: » Microsoft-Office 97 bis Office 2021: » Excel 97 Makro um Zahlen auszuschließen


Designed by PC-Experience.de, online seit 06.August 2002
Copyright © 2002 - 2023 PC-Experience.de