Supportnet / Forum / Tabellenkalkulation
Zelle mit Hilfe von VBA an eine Flexible Stelle kopieren
Frage
Hallo zusammen,
habe folgendes Problem:
Ich möchte die Zelle A1 und B1 immer 1 Zeile unter die letzte beschriebne Zeile kopieren.
z.B. Letzte beschriebene Zeile ist Zeile 15, dann soll A1 und B1 nach A17 B17 kopiert werden.
Letzte beschriebene Zeile ist Zeile 24, dann soll A1 und B1 nach A26 B26 kopiert werden.
Wie kann man das mit einem Makro realisieren
Gruß Klaus
Antwort 1 von nighty
hi klaus :)
so vielleicht :)
gruss nighty
Sub makro01()
Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
alta = LastCell.Row
a = LastCell.Row
Do While Application.CountA(Rows(a)) = 0 And a <> 1
a = a - 1
Loop
alta = a
altb = LastCell.Column
b = LastCell.Column
Do While Application.CountA(Columns(b)) = 0 And b <> 1
b = b - 1
Loop
altb = b
lzeile = alta + 1
lspalte = altb
Range("A" & lzeile) = Range("A" & 1)
Range("B" & lzeile) = Range("B" & 1)
End Sub
so vielleicht :)
gruss nighty
Sub makro01()
Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
alta = LastCell.Row
a = LastCell.Row
Do While Application.CountA(Rows(a)) = 0 And a <> 1
a = a - 1
Loop
alta = a
altb = LastCell.Column
b = LastCell.Column
Do While Application.CountA(Columns(b)) = 0 And b <> 1
b = b - 1
Loop
altb = b
lzeile = alta + 1
lspalte = altb
Range("A" & lzeile) = Range("A" & 1)
Range("B" & lzeile) = Range("B" & 1)
End Sub
Antwort 2 von klaus66
Hallo nighty,
vielen Dank für den Code.
Hab` ihn gerade ausprobiert
Einfach perfekt. Danke
Gruß Klaus
P.S. Bei dem Code von heute Morgen hab ich jetzt noch ein Problem festgestellt. Und zwar wenn die Summe grösser als 32767 wird kommt ein Fehler (Fehler 6 Überlauf in Codezeile 18 summe% = summe% + Range("D" & t%)
Was kann mann da machen?
vielen Dank für den Code.
Hab` ihn gerade ausprobiert
Einfach perfekt. Danke
Gruß Klaus
P.S. Bei dem Code von heute Morgen hab ich jetzt noch ein Problem festgestellt. Und zwar wenn die Summe grösser als 32767 wird kommt ein Fehler (Fehler 6 Überlauf in Codezeile 18 summe% = summe% + Range("D" & t%)
Was kann mann da machen?
Antwort 3 von nighty
hi klaus :)
von der var summe% das % zeichen wegnehmen :)
gruss nighty
von der var summe% das % zeichen wegnehmen :)
gruss nighty