Microsoft Excel

Herbers Excel/VBA-Archiv

Used Range beschränken

Betrifft: Used Range beschränken von: Sparrow
Geschrieben am: 24.11.2014 13:52:58

Hey!
Ich möchte gerne dass dieser Code die Used Range untersucht - allerdings nur bis Spalte S! Geht das irgendwie?

Sub VerbundzellenAuflösen()
Dim Zelle As Range
Dim Wert As Variant
For Each Zelle In ActiveSheet.UsedRange
    If Zelle.MergeCells = True Then
        With Zelle.MergeArea
            Wert = .Cells(1, 1).Value
            .MergeCells = False
            .Value = Wert
        End With
    End If
Next
End Sub
Vielen Dank im Voraus

Beste Grüße
Sascha

  

Betrifft: AW: Used Range beschränken von: Rudi Maintaire
Geschrieben am: 24.11.2014 13:56:08

Hallo,
For Each Zelle In ActiveSheet.UsedRange.Resize( ,19)

Gruß
Rudi


  

Betrifft: AW: Used Range beschränken von: Hajo_Zi
Geschrieben am: 24.11.2014 13:56:10

Hallo Sascha,

Range("S1:S" & ActiveSheet.UsedRange.row)

GrußformelHomepage


  

Betrifft: AW: Used Range beschränken von: Sparrow
Geschrieben am: 24.11.2014 14:01:56

Hey,
danke für die schnelle Antwort - funktioniert leider nicht wie es soll.
Sagen wir mal dass die Tabelle bei Zeile 500 aufhört (500 ist nicht fix)
Dann soll er von A1:S500 gehen, drückt dein Code das selbe aus?
Vg
Sascha


  

Betrifft: AW: Used Range beschränken von: Hajo_Zi
Geschrieben am: 24.11.2014 14:03:49

Hallo Sascha,

Ersetze S1 durch A1

Gruß Hajo


  

Betrifft: AW: Used Range beschränken von: Daniel
Geschrieben am: 24.11.2014 14:05:48

im geszeigten Code nur für Spalte S.
Von A-S dann einfach:

Range("A1:S" & ActiveSheet.UsedRange.row)
Gruß Daniel


  

Betrifft: AW: Used Range beschränken von: Sparrow
Geschrieben am: 24.11.2014 14:03:21

Hey,
danke für die schnelle Antwort - funktioniert leider nicht wie es soll.
Sagen wir mal dass die Tabelle bei Zeile 500 aufhört (500 ist nicht fix)
Dann soll er von A1:S500 gehen, drückt dein Code das selbe aus?
Vg
Sascha


  

Betrifft: AW: Used Range beschränken von: Daniel
Geschrieben am: 24.11.2014 14:03:21

Hi

wenn du es au bestimmte Spalten einschränken willst:

For Each Zelle In Intersect(ActiveSheet.UsedRange, Range("A:S"))
damit liessen sich auch Bereiche dazwischen aussparen.
For Each Zelle In Intersect(ActiveSheet.UsedRange, Range("A:D;G:I;Q:S"))
Gruß Daniel


  

Betrifft: AW: Used Range beschränken von: Sparrow
Geschrieben am: 24.11.2014 14:04:54

Super nice!
Wieder was gelernt, vielen Dank!
Vg
Sascha


  

Betrifft: AW: Used Range beschränken von: Rudi Maintaire
Geschrieben am: 24.11.2014 14:11:34

Hallo,
oder so:

Sub VerbundzellenAuflösen()
  Dim Zelle As Range
  Dim Wert As Variant
  For Each Zelle In ActiveSheet.UsedRange
    If Zelle.Column < 20 Then
      If Zelle.MergeCells = True Then
        With Zelle.MergeArea
          Wert = .Cells(1, 1).Value
          .MergeCells = False
          .Value = Wert
        End With
      End If
    End If
  Next
End Sub

Gruß
Rudi


 

Beiträge aus den Excel-Beispielen zum Thema "Used Range beschränken"