Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.02.2011 01:18:10 |
Ralf |
|
|
|
27.02.2011 10:54:37 |
Severus |
|
|
|
27.02.2011 11:38:33 |
Ralf |
|
|
Letzte aktive Zelle kopieren in Range |
27.02.2011 13:28:51 |
Severus |
|
|
|
28.02.2011 12:30:04 |
Ralf |
|
|
|
28.02.2011 12:30:04 |
Ralf |
|
|
Von:
Severus |
Datum:
27.02.2011 13:28:51 |
Views:
972 |
Rating:
|
Antwort:
|
Thema:
Letzte aktive Zelle kopieren in Range |
Seid halt so gut und schreibt immer gleich was Ihr wirklich wollt! Es ist ungemein lästig, wenn man unnötigerweise alles doppelt und dreifach machen muß!
Option Explicit
Sub Bereinigen()
Dim lngErsteZeile As Long
Dim lngLetzteZeile As Long
Dim lngLaufZahl As Long
lngLetzteZeile = 4
lngErsteZeile = 6
Do
With ActiveSheet
For lngLaufZahl = lngErsteZeile To lngLetzteZeile Step -1
If .Cells(lngLaufZahl, "F") <> "" Then
.Cells(lngLetzteZeile - 1, "F") = .Cells(lngLaufZahl, "F")
.Range(.Cells(lngLetzteZeile, "F"), .Cells(lngLaufZahl, "F")).Select
Selection.ClearContents
Exit For
End If
Next lngLaufZahl
End With
lngLetzteZeile = lngLetzteZeile + 4
lngErsteZeile = lngErsteZeile + 4
If lngErsteZeile > 170 Then Exit Do
Loop
ActiveSheet.Range("F3").Activate
End Sub
Severus
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.02.2011 01:18:10 |
Ralf |
|
|
|
27.02.2011 10:54:37 |
Severus |
|
|
|
27.02.2011 11:38:33 |
Ralf |
|
|
Letzte aktive Zelle kopieren in Range |
27.02.2011 13:28:51 |
Severus |
|
|
|
28.02.2011 12:30:04 |
Ralf |
|
|
|
28.02.2011 12:30:04 |
Ralf |
|
|