Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1020to1024
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
Kleines VBA Problem
30.10.2008 13:47:00
Matthias
Hallo zusammen,
ich habe ein kleine Problem. Ich brauche ein Makro für folgenden Sachverhalt.
Falls A1 nicht leer ist, dann nichts machen, ansonsten den Inhalt von k1 bis n1 löschen.
Falls A2 nicht leer ist, dann nichts machen, ansonsten den Inhalt von k2 bis n2 löschen
.
.
.
Falls A3027 nicht leer ist, dann nichts machen, ansonsten den Inhalt von k3027 bis n3027 löschen
Danke!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kleines VBA Problem
30.10.2008 14:03:00
gerwas
Hallo Matthias
das würde etwa so funktionieren
For k=ersteZeile To letzteZeile
If Cells(k,1).Value"" Then Range(Cells(k,11),Cells(k,14)).").ClearContents
Next
gruß gerwas
AW: Kleines VBA Problem
30.10.2008 14:19:54
Matthias
Der Schlauch auf dem ich stehe ist sehr dick. Ich versuch dir mein Problem mal zu schildern. Ich kriege ne Rohdatei. Lasse da mein Makro drüberlaufen. Die Anzahl der Zeilen der Rohdatei ist variabel und in meinem Makro zieht der in den Spalten k,l,m,n ne Formel bis Zeile 4000 durch. (mehr als 4000 wirds nie geben). Wenn ich nun nur 3000 Zeilen in der Rohdatei habe stehen da von k-n aber noch immer 1000 Formeln und die möchte ich loswerden.
Gruß Matthias
Anzeige
AW: Kleines VBA Problem
03.11.2008 10:16:56
gerwas
Hallo Matthias
dannschreibe doch nur soviel formeln rein, wie du brauchst! Etwa so:

Sub formel_runterziehen()
'in zeile 2 stehen z.B. die formeln
letzte_zeile = Range("A65536").End(xlUp).Row
Range("K2:N2").AutoFill Destination:=Range("K2:N" & letzte_zeile), Type:=xlFillDefault
End Sub


Gruß gerwas

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige