Microsoft Excel

Herbers Excel/VBA-Archiv

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

Range Methode fehlerhaft

Betrifft: Range Methode fehlerhaft von: René
Geschrieben am: 14.09.2004 20:06:48

Hallo liebe Excelprofis,
ich habe ein kleines Problem mit einem Makro was nicht läuft.
Auf dem Rechner wo ich das geschrieben habe läuft es, aber auf keinem anderen Rechner.
Bin für jeden Hinweis sehr dankbar


Private Sub CommandButton1_Click()

Range("B8:K12,B16:K20,B24:K28,B32:K36,B40:K44,B48:K52,B56:K60,B64:K68,B72:K76,B80:K84,B88:K92,B96:K100,B104:K108,B112:K116,B120:K124,B128:K132,B136:K140,B144:K148,B152:K156,B160:K164,B168:K172,B176:K180,B184:K188,B192:K196,B200:K204,B208:K212,B216:K220,B224:K228,B232:K236,B240:K244,B248:K252").Select
    Range("B16").Activate
    Selection.ClearContents
    Range("A1").Select
End Sub


Es grüßt Euch freundlich René
  


Betrifft: AW: Range Methode fehlerhaft von: ypsilon
Geschrieben am: 14.09.2004 20:30:23

hi René,
der bereich wird zu gross(nein, ich weiss nicht wie gross er sein darf ;-),
entweder du teilst deinen bereich in 2 bereiche auf(und vergiss deinen select !) oder du bastelst dir eine schleife
probier mal:

Private Sub CommandButton1_Click()
Dim i as Integer
For i = 8 To 248 Step 8
Range("B" & i & ":K" & i + 4).ClearContents
Next i 
End Sub


cu Micha


  


Betrifft: AW: Range Methode fehlerhaft von: Boris
Geschrieben am: 14.09.2004 20:30:27

Hi René,

ohne Fehlerangabe ist es eigentlich ein Rätselraten - vielleicht ist es die typische TakeFocusOnClick-Falle.
Diese Eigenschaft des Commandbuttons sollte eigentlich stets auf FALSE gestellt werden - Default ist nämlich TRUE.
Teste das mal.

Unabhängig davon würde ich in deinem Fall ne kleine Schleife vorziehen, da der Range-Bereich ja logisch fortlaufend ist:

Option Explicit

Sub oder_so()
Dim l As Long
For l = 8 To 248 Step 8
    Range("B" & l, "K" & l + 4).ClearContents
Next l
End Sub


Grüße Boris


  


Betrifft: AW: Range Methode fehlerhaft von: Nepumuk
Geschrieben am: 14.09.2004 20:30:46

Hallo René,
warum das nicht funktioniert, kann ich nicht sagen, aber so gehts sicher:


Private Sub CommandButton1_Click()
    Dim intRow As Integer
    Application.ScreenUpdating = False
    For intRow = 8 To 248 Step 8
        Range(Cells(intRow, 2), Cells(intRow + 4, 11)).ClearContents
    Next
    Cells(1, 1).Select
    Application.ScreenUpdating = True
End Sub


Gruß
Nepumuk


  


Betrifft: AW: Range Methode fehlerhaft von: René
Geschrieben am: 14.09.2004 20:38:07

Danke an alle. Bin sehr froh das es jetzt funktioniert.
Es grüßt Euch freundlich René


 

Beiträge aus den Excel-Beispielen zum Thema "Range Methode fehlerhaft"