Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

RefEdit Range.Row.Count Bug?

Betrifft: RefEdit Range.Row.Count Bug? von: Sodonikus
Geschrieben am: 07.04.2013 14:04:09

Ich habe eine Frage. Ich lese über ein Refedit ein range namens rangeGes ein.
Dieses liegt irgendwo in meiner Tabelle und hat 1 Reihe und 3 Spalten.

Jetzt will ich das ganze Splitten und zwar dynamisch, sodass ich einmal die erste Spalte, einmal die zweite Spalte und einmal nur die Dritte habe.

Für die erste Spalte würde mein Code entsprechend so aussehen:

Set rangeU = Range(Cells(rangeGes.Row, rangeGes.Column), Cells(rangeGes.Rows.Count, rangeGes.Column))

Allerdings habe ich etwas festgestellt und zwar das sobald ich .Count eingebe, nicht ab der ersten Spalte oder Zeile meiner Selektion gezählt wird, sondern der Zähler beginnt bei der ersten Zelle der Tabelle. Mit anderen Worten wenn mein Wert in A3 steht
muss ich für die Zeile Rows.Count+2 schreiben um die Reihe 3 auszulesen.

Kann mir einer erklären was das soll und warum das so ist? So kann ich ja gar nicht dynamisch meine Selektion vom Refedit einlesen...

  

Betrifft: AW: RefEdit Range.Row.Count Bug? von: Nepumuk
Geschrieben am: 07.04.2013 14:36:52

Hallo,

warum den einfach wenn's auch kompliziert geht?

Private Sub CommandButton1_Click()
    Dim objRange As Range
    Dim lngColumn As Long, lngRow As Long
    Set objRange = Range(RefEdit1.Value)
    For lngColumn = 1 To objRange.Columns.Count
        MsgBox objRange.Columns(lngColumn).Address
    Next
    For lngRow = 1 To objRange.Rows.Count
        MsgBox objRange.Rows(lngRow).Address
    Next
    Set objRange = Nothing
End Sub

Gruß
Nepumuk


  

Betrifft: AW: RefEdit Range.Row.Count Bug? von: Sodonikus
Geschrieben am: 07.04.2013 15:01:37

Super danke, es wundert mich nur das meine Methode nicht funktioniert. Scheint wohl sehr verbuggt zu sein alles.


 

Beiträge aus den Excel-Beispielen zum Thema "RefEdit Range.Row.Count Bug?"