Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
316to320
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
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Check ob Spalte leer

Check ob Spalte leer
01.10.2003 15:11:58
Fab
Siehe Frage weiter unten in Makro:

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.590551181102362)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
' Wie kann man hier einen Check machen mit If,
' ob eine bestimmte Spalte leer ist. Und wenn diese
' leer ist, soll das Makro die vorherige Spalte
' checken, ob diese leer ist usw. Das Ziel des Makro
' ist es, die FitToPagesWide-Zahl automatisch und optimal
' zu ermitteln. Z. B. dass FitToPagesWide = 2, wenn die Spalten-
' anzahl = 60 ist, und dass FitToPagesWide = 1, wenn die Spalten-
' anzahl = 30 ist.
.FitToPagesWide = 2
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Check ob Spalte leer
01.10.2003 16:59:37
Ramses
Hallo

probier mal das

Option Explicit


Sub check_Columns()
Dim i As Integer, NotEmpty As Boolean
NotEmpty = False
For i = 60 To 31 Step -1
If Not Cells(65536, i).End(xlUp).Row = 1 And IsEmpty(Cells(1, i)) Then
NotEmpty = True
'FitToPagesWide = 2
Exit For
End If
Next i
MsgBox "Spalte " & i & " Ist nicht leer"
'FitToPagesWide = 1
End Sub


Gruss Rainer
AW: Check ob Spalte leer
01.10.2003 17:11:25
Fab
Vielen Dank für den IsEmpty-Input, der hat mir noch gefehlt!

Gruss

Fab
Merci fürs Feedback o.T.
01.10.2003 19:15:26
Ramses
...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige