Zellen löschen?

Bild

Betrifft: Zellen löschen?
von: Andre
Geschrieben am: 03.12.2003 12:11:39

Hi, ich brauch die Position einer Zeile!

Ich lasse mit folgendem Code eine Zeile in ein anderes Tabellenblatt kopieren,
jetzt brauche ich in der 13.Zelle der Zieltabelle die Position der Zeile, d.h. wenn die Zeile in A20:L20 kopiert wird, muß in M die Zahl 20 stehen!


Private Sub In_1_Kopieren(Kontrolle As String)
Dim LetzteZeile As Integer
Const Name_1 As String = "1"
With Sheets(Name_1)
    LetzteZeile = .Cells(Cells.Rows.Count, 3).End(xlUp).Row
    Sheets(Kontrolle).Range("b1:k1").Copy .Cells(LetzteZeile + 1, 3)
    .Cells(LetzteZeile + 1, 1) = .Cells(LetzteZeile + 1, 3).Value + .Cells(LetzteZeile + 1, 9).Value
    .Cells(LetzteZeile + 1, 2) = .Cells(LetzteZeile + 1, 5).Value + .Cells(LetzteZeile + 1, 9).Value
    .Cells(LetzteZeile + 1, 13) = ?????
End With
End Sub


Zum Zweiten brauche ich dann eine Möglichkeit auf genau diese Zeile zugreifen zu können.

Also ich Frage die Daten über Sverweis in ein anderes Tabellenblatt ab, also steht in L3 die Zahl, die in der Quelltabelle in M steht. Jetzt möchte ich diese Zeile über einen Button löschen, d.h. ich brauche ungefähr sowas:

sheets("1").Range("a?:l?").ClearContents

wobei das Fragezeichen durch den Wert in L3 ersetzt werden soll!

Danke für eure Hilfe.

Gruß Andre
Bild


Betrifft: AW: Zellen löschen?
von: WernerB.
Geschrieben am: 03.12.2003 12:20:34

Hallo Andre,

warum nicht so:

.Cells(LetzteZeile + 1, 13) = LetzteZeile + 1


Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: Danke, aber...
von: Andre
Geschrieben am: 03.12.2003 12:28:48

weißt du auch bei meinem zweiten Problem weiter?

Ich muß auf diese Zeile durch diese Zahl wieder zugreifen können!

Gruß Andre


Bild


Betrifft: AW: Danke, aber...
von: WernerB.
Geschrieben am: 03.12.2003 12:37:06

Hallo Andre,

wie wäre es damit:

Dim Zn As Long
Zn = Range("L3").Value
Sheets("1").Range("A" & Zn & ":L" & Zn).ClearContents


Gruß WernerB.


Bild


Betrifft: okay, ich versuch´s, danke. o.T.
von: Andre
Geschrieben am: 03.12.2003 12:41:40




Bild

Beiträge aus den Excel-Beispielen zum Thema " Zellen löschen?"