Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
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
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-verkürzen

VBA-verkürzen
17.02.2005 15:14:18
Frank
Hallo,
wie kann ich unten genannte Formel verkürzen
da die Aktion bis Zelle "D100" geht.
Range("D11").Select
ActiveCell.FormulaR1C1 = "0"
Range("D12").Select
ActiveCell.FormulaR1C1 = "0"
Range("D13").Select
ActiveCell.FormulaR1C1 = "0"
Range("D14").Select
ActiveCell.FormulaR1C1 = "0"
Range("D15").Select
ActiveCell.FormulaR1C1 = "0"
Viele Grüsse
Frank

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Range("D11:D100")=0
u_
AW: VBA-verkürzen
17.02.2005 15:16:35
Josef
Hallo Frank!

Range("D11:D100").Value = "0"

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: VBA-verkürzen
17.02.2005 15:19:36
Frank
Vielen Dank für euere schnelle Hilfe.
Danke
Frank
AW: VBA-verkürzen
Ulf 

Sub Bis100()
Dim z As Long
For z = 11 To 100
Cells(z, 4) = 0
Next
End Sub

Ulf
AW: VBA-verkürzen
u_
geht' noch lahmer? ;-)
Vielleicht noch select dazwischen
Pfui über mir! oT
Ulf
oT
Hihihi mT
u_ 

Sub Null_rein()
weiter:
If Z >= 11 Then
Range("D" & Z).Select
Selection = 0
End If
Z = Z + 1
If Z < 101 Then GoTo weiter
End Sub

Anzeige
AW: Hihihi mT
Ulf
Na bitte, geht doch!
Ulf
AW: VBA-verkürzen
Beni
Hallo Frank,
Gruss Beni
Dim i As Integer
For i = 11 To 15
Cells(i, 4) = "0"
Next i
AW: VBA-verkürzen
17.02.2005 15:20:06
Dominic
So:

Sub test()
Dim zelle As Object
For Each zelle In Range(Cells(12, 4), Cells(100, 4))
zelle.FormulaR1C1 = "0"
Next
End Sub

Gruß
Dominic
AW: VBA-verkürzen
Stefan
Hallo Frank

Sub Frank()
Dim a as long
for a=11 to 100
cells(i,4).formulaR1C1="0"
next a
End Sub

Gruß Stefan

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige