Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
636to640
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
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

1004: Formulierung: setze Zeile 1 auf höhe 90

1004: Formulierung: setze Zeile 1 auf höhe 90
14.07.2005 16:09:55
Frank
Wie die überschrift schon sagt: (auszug)
Sheets("Grafik").Select
Rows(1).Select

RowHeight = 90
Range("B1").Select
Aber der kommt immer der blöde Fehler "kann reienhöhe nicht setzen" oder so

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 1004: Formulierung: setze Zeile 1 auf höhe 90
14.07.2005 16:17:00
Frank
oder andersrum formuliert:
das Problem tritt nur bei geschütztem blatt auf
AW: 1004: Formulierung: setze Zeile 1 auf höhe 90
14.07.2005 16:19:22
Dr.
Das ist nicht andersherum formuliert, das ist ein völlig neues Problem.
Blattschutz aufheben
Zeilenhöhe ändern
Blattschutz setzen
AW: 1004: Formulierung: setze Zeile 1 auf höhe 90
14.07.2005 16:17:37
Dr.

Sub test()
Sheets("Grafik").Rows(1).RowHeight = 90
Range("B1").Select
End Sub

AW: 1004: Formulierung: setze Zeile 1 auf höhe 90
14.07.2005 16:25:49
Frank
https://www.herber.de/bbs/user/24722.doc
OB DAS WAS MIT DEM BLATTSCHUTZ ZU TUN HAT?
(habe in der Zeile die Sperre entfernt)

Sub speichern()
Dim Datum As String
Datum = Format(Now, "dd.mm.yyyy_hh.mm")
ActiveWorkbook.SaveAs FileName:= _
"U:\Wiehe\Fertigungssteuerung\save\Datei_" & Datum & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Sheets("Grafik").Rows(1).RowHeight = 90
Range("B1").Select
Sheets("Kapazitätsplanung").Select
ActiveSheet.Shapes("Picture 24").Select
Selection.Cut
Sheets("Grafik").Select
ActiveSheet.Paste
Selection.ShapeRange.ScaleWidth 1.01, msoFalse, msoScaleFromTopLeft
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.Cut
Sheets("Kapazitätsplanung").Select
Range("A1").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -20.25
Sheets("Grafik").Select
Rows("1:1").Select
Selection.RowHeight = 5
Sheets("Reihenfolge").Select
ThisWorkbook.save
Application.Quit
End Sub

Anzeige

19 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige