Im variablen Bereich Inhalte löschen

Bild

Betrifft: Im variablen Bereich Inhalte löschen von: Sergej
Geschrieben am: 21.03.2005 13:56:33

Hallo lieber Helfer, Profis und andere!!!!!!!

Zum meiner Code:

Sub LeztezeileLoeschen()
A = ThisWorkbook.Sheets("Dummy").Range("B5").Value
If A > 14 Then
ThisWorkbook.Sheets("Protokoll").Cells(A, 2).EntireRow.ClearContents
A = A - 1
ThisWorkbook.Sheets("Dummy").Range("B5").Value = A
End If
End Sub


So lösche ich kompllet die ganze Zeile
Ich will aber nur bestimmter Bereich löschen
z.B Range("B15:H15") nur eins, die Zeile ist variabel!!!

wie schreibt man richtig so was:
Range("B & A :H & A").ClearContents ????
A ist der Nummer meiner lezten Zeile
Wer kann mir helfen
Danke im Voraus
gruß Sergej
Bild


Betrifft: AW: Im variablen Bereich Inhalte löschen von: ANdreas
Geschrieben am: 21.03.2005 14:11:19

Hallo Sergej,

wenn ich Dich richtig verstanden habe, dann so:

Sub LetzteZeileLoeschen()
Dim i&
i = CLng(ThisWorkbook.Worksheets("Dummy").Range("B5").Value)
If i > 14 Then
    With ThisWorkbook.Worksheets("Protokoll")
        .Range(.Cells(i, 2), .Cells(i, 8)).ClearContents
    End With
    ThisWorkbook.Worksheets("Dummy").Range("B5").Value = i - 1
End If
End Sub


Gruß
Andreas


Bild


Betrifft: AW: Im variablen Bereich Inhalte löschen von: Sergej
Geschrieben am: 21.03.2005 14:34:59

Hallo Andreas!!! Vielen Dank für deinen Beitrag
genau das brauche ich...aber irgendwie funzt deiner Code nicht
Villeicht liegt es an "" obwohl ich das so und so ausprobiert habe..troztdem nicht..
.Range(".Cells(i, 2), .Cells(i, 8)").ClearContents so etwa????
gruß Sergej


Bild


Betrifft: AW: Im variablen Bereich Inhalte löschen von: ANdreas
Geschrieben am: 21.03.2005 14:38:16

Hallo Sergej,

wie genau äußert sich das nicht funktionieren? Passiert nichts, kommt ein Fehler? Wenn ja welcher und in welcher Zeile?

Die "" darfst Du nicht setzen. Mit Cells(row, column) sprichst Du ja schon die Zelle an.

Gruß
Andreas


Bild


Betrifft: AW: Im variablen Bereich Inhalte löschen von: Sergej
Geschrieben am: 21.03.2005 14:56:19

Inhalte in der lezten Zeile werden nicht gelöscht, also nicht funktioniert.
Keine Fehlermeldungen...hast du dass bei dir getestet???
Trozdem Vielen dank!!!!! Wenn dir was noch einfällt ...poste bitte im Forum!


Bild


Betrifft: AW: Im variablen Bereich Inhalte löschen von: Tobias Marx
Geschrieben am: 21.03.2005 14:13:28

Servus!

Also am besten machst dus so:

ThisWorkbook.Sheets("Protokoll").Activate
Range("B15:H15").Select
Selection.ClearContents
ThisWorkbook.Sheets("Dummy").Activate

Hilfe ok?

Gruss

Tobias


Bild


Betrifft: AW: Im variablen Bereich Inhalte löschen von: Tobias Marx
Geschrieben am: 21.03.2005 14:15:33

Hups... doofes Copy&Paste... nochmal

ThisWorkbook.Sheets("Protokoll").Activate
Range("B" & A & ":H" & A).Select
Selection.ClearContents
ThisWorkbook.Sheets("Dummy").Activate
Gruss

Tobias


Bild


Betrifft: AW: Im variablen Bereich Inhalte löschen von: Sergej
Geschrieben am: 21.03.2005 14:39:26

Danke Danke Tobias funzt aber bleibt die Selektirung zu sehen...
aber irgendwie Makro ähnliches Methode...
wie kriegt man Selektierung (Markierung) raus ???


Bild


Betrifft: AW: Im variablen Bereich Inhalte löschen von: Tobias Marx
Geschrieben am: 21.03.2005 14:47:33

Servus!

Is recht einfach - markier einfach ne andere Zelle, wie hier im Beispiel die Zelle A1:

Range("A1").Select

Damit ist die alte Selektion wieder aufgehoben.

Gruss

Tobias


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Im variablen Bereich Inhalte löschen"