Office: (Office 2013) VBA

Nichts ist so beständig wie ein "Provisorium" *grins

 

Sorry Jungs - ich bekomme es nicht hin - habe noch 2 Kollegen gefragt die nach eigener Aussagen Makros beherrschen - leider nur Aufzeichnungsmakros... *wink.gif*
If letzte < 191 Then Range("C" & letzte + 1 & ":C191").ClearContents

Habs versucht mit If letzte < 191 Then Range("C:L" & letzte + 1 & ":C191").ClearContents
oder If letzte < 191 Then Range("C":"L" & letzte + 1 & ":C191").ClearContents

Hier läuft aber immer alles in einen Fehler.....

 

Ich sehe schon, da fehlt das Grundlagenwissen. Wäre mal eine Schulung Wert *wink.gif*
An allen Stellen hast Du es versucht, nur nicht an der richtigen:
Code:

In Range muss schon ein korrekter Bezug stehen.
Nehmen wir mal an die Variable "letzte" hat den Wert 32. Dann wird aus "C" & letzte + 1 & ":L191" das: "C32:L191"
Daraus ergibt sich für den Teil nach Then: Range("C32:L191").ClearContents

 

danke euch allen - in der Musterdatei fürs Forum funktioniert es jetzt.
In der Originaldatei, die neben dem Register der Forumdatei noch weitere Register enthält, passiert nach dem Ausführen leider gar nichts, weder eine Fehlermeldung noch werden Werte gelöscht, an was kann dies liegen?
Hab ein Bild mit den Dateiinhalten hoch geladen..
VG
Mannie

Hier wäre ein Link zur Gesamtdatei.
Makros

 

habe um Fehler im Makro auszuschließen, aus der fertigen Gesamtdatei das entspr. Register alleine in eine eigene Datei verschoben - schon funktioniert das Makro wieder - aber eben nicht in der Gesamtdatei. ??

 

Lade die Datei direkt im Forum hoch, von Fremdhostern lade ich nichts herunter.

 

Hallo,

die Tabelle die du ansprechen willst ist nicht Sheets(1). Sprich die entsprechende Tabelle doch mit ihrem Namen an.

PHP:

         Sub loeschen()
Dim letzte As Long

With Worksheets("Datenerfassung2")
letzte = .Columns(3).Find(What:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row
If letzte < 191 Then .Range("C" & letzte + 1 & ":L191").ClearContents
End With
End Sub


 

OK - werde es am Montag testen - ich kann die Gesamte leider nicht hier hochladen, da etwas zu groß - (ca. 270) - Zippen bringt auch ned viel - -leider..
VG
Mannie

 

klasse - so funktionierts - *Smilie
Vielen Dank euch allen *Smilie