Geschrieben von Binky am 28.06.2005 um 08:36:
Excel 97 Makro um Zahlen auszuschließen
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ß
Binky@work
