Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range Methode fehlerhaft

Range Methode fehlerhaft
14.09.2004 20:06:48
René
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é

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range Methode fehlerhaft
ypsilon
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
AW: Range Methode fehlerhaft
Boris
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
Anzeige
AW: Range Methode fehlerhaft
14.09.2004 20:30:46
Nepumuk
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
Anzeige
AW: Range Methode fehlerhaft
René
Danke an alle. Bin sehr froh das es jetzt funktioniert.
Es grüßt Euch freundlich René

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige