Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code kuerzen

Forumthread: 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

Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige