Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code kuerzen

Code kuerzen
29.08.2007 09:01:34
Anja
Hallo Leute,
braeuchte mal eure Hilfe:
will aus einer userform daten in ein sheet uebertragen, einige zellen sollen aber leer bleiben. Wie kann ich den Teil-Code kuerzer schreiben z.B. mit ner Schleife oder so?
auszug aus code:
Sheets(1).Cells(x , y+1).Value = ""
Sheets(1).Cells(x , y+2).Value = ""
Sheets(1).Cells(x , y+3).Value = ""
Sheets(1).Cells(x , y+4).Value = ""
Sheets(1).Cells(x , y+5).Value = "" usw.
Danke gruss Anja

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code kuerzen
29.08.2007 09:09:59
gerwas
Hallo
geht z.B. so:
With Sheets(1)
For k=1 to usw.
.Cells(x , y+k).Value = ""
Next
End With
gruss GerWas

AW: Code kuerzen
29.08.2007 09:14:00
Anja
gracias :-)

und ohne Schleife
29.08.2007 09:43:00
c0bRa
Code aus Microsoft Excel Objekt Tabelle1:
With Sheets(1)
    .Range(.Cells(x, y), .Cells(x, y + k)).Value = ""
End With

Rückmeldung nicht vergessen...
c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.

Anzeige
Ohne Schleife
29.08.2007 09:44:08
{Boris}
Hi,
für y+20 Spalten:
Sheets(1).Range(Cells(x, y), Cells(x, y+20)).ClearContents
Grüße Boris

AW: Ohne Schleife
29.08.2007 10:05:06
bst
Hi,
oder so:
Sheets(1).Cells(x,y).Resize(,AnzahlSpalten).ClearContents
cu, Bernd

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige