… wie es in makro-sprache heißt: wähle Seite 1 aus
1001 Dank
Hallo 3abdel3aziz,
was meinst du mit „Seite 1“?
Das erste Tabellenblatt geht so:
Workheets(1).Activate
Oder meinst du eine Tabellenblatt mit dem Namen „Tabelle 1“? Das geht so:
Worksheets("Tabelle 1").Activate
Oder meinst du ein Blatt (egal ob Tabelle oder Diagramm) mit dem Namen „Tabelle 1“? Das geht so:
Sheets("Tabelle 1").Activate
Oder meinst du noch etwas anderes? Werde mnal etwas genauer.
Gruß, Andraes
Hallo und vielen Dank,
ein Tabellenblatt besteht aus 10 Seiten.
ich möchte aber ein Befehl „gehe zu seite 1“ haben
z.B.
Sub Drucken_1_55()
’ Abfrage Anzahl der Kopien
Sheets(„6“).Select
„Hier ist noch zuzufügen wähle Seite 1“
Kopien = InputBox(„Anzahl Kopien“, „Drucken“, 1)
If StrPtr(Kopien) = 0 Then Exit Sub
If IsNumeric(Kopien) Then
ActiveSheet.PrintOut From:=1, To:=1, Copies:=CLng(Kopien)
End If
End Sub
1001Dank
Sub Drucken_1_55()
’ Abfrage Anzahl der Kopien
Sheets(„6“).Select
„Hier ist noch zuzufügen wähle Seite 1“
Kopien = InputBox(„Anzahl Kopien“, „Drucken“, 1)
If StrPtr(Kopien) = 0 Then Exit Sub
If IsNumeric(Kopien) Then
ActiveSheet.PrintOut From:=1, To:=1, Copies:=CLng(Kopien)
End If
End Sub1001Dank
Hallo,
ich habe deinen Code mal eben getestet. Scheint einwandfrei zu laufen (auch wenn ich nicht verstehe, was das StrPtr soll, aber das ist ein anderes Thema).
Er druckt nur die Seite 1 aus, so wie du es vorgegeben hast.
Was meinst du mit „Gehe zu Seite 1“?
Gruß,
Andreas