Thema Datum  Von Nutzer Rating
Antwort
27.02.2011 01:18:10 Ralf
NotSolved
27.02.2011 10:54:37 Severus
NotSolved
27.02.2011 11:38:33 Ralf
NotSolved
Blau Letzte aktive Zelle kopieren in Range
 27.02.2011 13:28:51 Severus
Solved
28.02.2011 12:30:04 Ralf
Solved
28.02.2011 12:30:04 Ralf
Solved

Ansicht des Beitrags:
Von:
Severus		 Datum:
27.02.2011 13:28:51		 Views:
967		 Rating:
     
Antwort:
 Nein
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

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
27.02.2011 10:54:37 Severus
NotSolved
27.02.2011 11:38:33 Ralf
NotSolved
Blau Letzte aktive Zelle kopieren in Range
 27.02.2011 13:28:51 Severus
Solved
28.02.2011 12:30:04 Ralf
Solved
28.02.2011 12:30:04 Ralf
Solved