So setzen Sie eine variable als Spalte Bereich innerhalb von excel mit vba

Ich habe einen benannten Bereich für die gesamte Tabelle die Spalte mit dem Namen TAG
Ich habe ein makro, setzt pagebreaks jedes mal, wenn ein Zellen-Wert in der Spalte TAG-änderungen (z.B. änderungen von Tag 1, Tag 2 oder Tag 3, es wird ein Seitenumbruch für den Druck).
Jedoch dieses makro funktioniert derzeit durch die Angabe der Brief-Spalte wie "A" oder "B" oder "C" oder "H", wie ich es bekommen kann, um durch die Angabe der "TAG" benannte Angebot, also wenn es sich bewegt, ist der vba-code nicht zu brechen?

Besondere Aufmerksamkeit auf diese:

For Each c In Range("C1:C" & lastrow)

Speziell: 

Range("C1:C"

Möchte ich ändern in: 

Range("DAY"

aber diese Pausen in verschiedenen syntax-Formen habe ich versucht

Sub Set_PageBreaks_DAY()
Dim lastrow As Long, c As Range
Dim i As Integer, rngData As Range
Set rngData = Range("A1").CurrentRegion
i = Application.WorksheetFunction.Match("DAY", Range("A1:AZ1"), 0)
lastrow = Cells(Rows.Count, i).End(xlUp).Row
Application.ScreenUpdating = False
ActiveSheet.ResetAllPageBreaks
For Each c In Range("C1:C" & lastrow)
    If c.Offset(1, 0).Value <> c.Value And c.Offset(1, 0) <> "" Then
        c.Offset(1, 0).PageBreak = xlPageBreakManual
   End If
Next c
Application.ScreenUpdating = True
End Sub
  • das nicht das problem lösen, wenn TAG-änderungen in Spalte B der Ort, code bricht
  • es funktioniert nicht, JLILI
InformationsquelleAutor Gallaxhar | 2015-01-31
  1. 0

    Erste, es ist wichtig zu beachten, dass die Benannten Bereiche haben 2 mögliche Bereiche, die eine Auswirkung auf, wie man darauf zugreift. Wenn Ihr benannten Bereich hat Arbeitsmappe Umfang, dann sollten Sie

    Dim Named_range_day as Range
Set Named_range_day = ThisWorkbook.Names("Day").RefersToRange

    Wenn der benannte Bereich hat-Arbeitsblatt-Bereich, dann verwenden Sie

    Dim Named_range_day as Range
Set Named_range_day = wksht.Names("Day").RefersToRange

    wo wksht ist die worksheet-variable für das Arbeitsblatt mit den benannten Bereich.

    InformationsquelleAutor Degustaf
  2. 0

    Den Grund JLILI Aman s Antwort nicht Arbeit ist, müssen Sie konvertieren die Spalte index-Zahl in eine Spalte schreiben, zuerst mit

    columnLetter = Split(Columns(i).Address(), "$")(2)

    So zum Beispiel 

    Sub Set_PageBreaks_CREW()

Dim lastrow As Long, c As Range
Dim i As Integer, rngData As Range
Set rngData = Range("A1").CurrentRegion
i = Application.WorksheetFunction.Match("DAY", Range("A1:AZ1"), 0)

lastrow = Cells(Rows.Count, i).End(xlUp).Row

Application.ScreenUpdating = False

ActiveSheet.ResetAllPageBreaks
columnLetter = Split(Columns(i).Address(), "$")(2)
Var = columnLetter & "1:" & columnLetter

For Each c In Range(Var & lastrow)
    If c.Offset(1, 0).Value <> c.Value And c.Offset(1, 0) <> "" Then
        c.Offset(1, 0).PageBreak = xlPageBreakManual
    End If
Next c

Application.ScreenUpdating = True

End Sub
    • Glaube, du hast Recht.
    InformationsquelleAutor Gallaxhar
Schreibe einen Kommentar