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

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

Excel 97 Makro um Zahlen auszuschließen

Autor

Beitrag

« Vorheriges Thema | Nächstes Thema »

Binky

Power-Member

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

Excel 97 Makro um Zahlen auszuschließen

Zitatantwort auf diesen Beitrag erstellen

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