Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vollbild

Vollbild
18.09.2003 15:30:33
Marc
hallo zusammen

Ich habe folgendes Problem und zwar:
Nach dem ich ein Makro ausgeführt habe verkleinert sich die Fenstergrösse wie kann ich das im VBA ändern?

Besten Dank schon im Voraus

marc

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vollbild
18.09.2003 15:39:38
GerdW
Wo ist dein Makro?

Gerd
AW: Vollbild
18.09.2003 15:41:15
Marc
Range("A4:C55000").Select
Selection.ClearContents
Range("A4").Select
Workbooks.OpenText Filename:= _
"P:\PROJEKTE\Tibag\Zeiterfassung\neu\logon_logoff.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 9), Array(2, _
1), Array(19, 9), Array(25, 1), Array(28, 1)), TrailingMinusNumbers:=True
Columns("A:A").EntireColumn.AutoFit
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "Datum, Zeit"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Anmeldung"
Range("C1").Select
ActiveCell.FormulaR1C1 = "User"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Monat"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Jahr"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-3]="""","""",MONTH(RC[-3]))"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-4]="""","""",YEAR(RC[-4]))"
Range("D2:E2").Select
Selection.AutoFill Destination:=Range("D2:E55000"), Type:=xlFillDefault
Range("D2:E55000").Select

Columns("A:C").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("F1").Select
Range("A1:E55000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Workbooks("zeiterfassung.xls").Sheets("ImportierenUndSortieren").Range( _
"A1:B2"), CopyToRange:=Range("G1:K55000"), Unique:=False
Columns("G:G").EntireColumn.AutoFit
Range("G2:I55000").Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Range("A4:C55002").Select
ActiveSheet.Paste
Range("E4").Select
Windows("logon_logoff.txt").Activate
ActiveWindow.WindowState = xlNormal

Range("F1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("F2").Select
ActiveWindow.Close (False)
End Sub
Anzeige
AW: Vollbild
18.09.2003 15:49:21
GerdW
Wenn das Fenster vorm minimieren maximized war, dann
ActiveWindow.WindowState = xlMaximized

btw: auf select und activate kannst du in deinem Code komplett verzichten.

Gerd
AW: Vollbild
18.09.2003 15:54:53
Marc
habe ich auch schon probiert funktioniert jedoch nicht
AW: Vollbild
18.09.2003 15:57:03
Marc
Es war nicht Maximized habe ich gerade gemerkt.
Was nun?


Besten Dank schon im voraus

marc

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige