Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.11.2012 11:29:04 |
Chillatica |
|
|
|
29.11.2012 12:17:35 |
Lutz |
|
|
|
29.11.2012 12:40:11 |
Chillatica |
|
|
|
29.11.2012 12:56:28 |
Lutz |
|
|
|
29.11.2012 13:08:51 |
Chillatica |
|
|
|
29.11.2012 13:14:28 |
Chillatica |
|
|
|
29.11.2012 13:34:49 |
Lutz |
|
|
bei 0 Zellbereich löschen und darunterliegenden Zellbereich nach oben schieben |
29.11.2012 14:12:45 |
Lutz |
|
|
|
29.11.2012 14:29:26 |
Chillatica |
|
|
|
29.11.2012 17:32:04 |
Lutz |
|
|
Von:
Lutz |
Datum:
29.11.2012 14:12:45 |
Views:
1952 |
Rating:
|
Antwort:
|
Thema:
bei 0 Zellbereich löschen und darunterliegenden Zellbereich nach oben schieben |
nach oben kopieren:
Dim rg As Range
Dim fd As Range
Dim rest As Integer
Application.DisplayAlerts = False
Set rg = Columns(5) ' Spalte E
Do
Set fd = rg.Find(0, LookIn:=xlValues)
If Not fd Is Nothing Then
rest = UsedRange.row + UsedRange.rows.Count - 1
Range("A" & fd.row + 1 & ":E" & rest).Select
Selection.Copy
Range("A" & fd.row).Select
ActiveSheet.Paste
End If
Loop While Not fd Is Nothing
Application.DisplayAlerts = True
Gruß Lutz
|
- 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
|
|
29.11.2012 11:29:04 |
Chillatica |
|
|
|
29.11.2012 12:17:35 |
Lutz |
|
|
|
29.11.2012 12:40:11 |
Chillatica |
|
|
|
29.11.2012 12:56:28 |
Lutz |
|
|
|
29.11.2012 13:08:51 |
Chillatica |
|
|
|
29.11.2012 13:14:28 |
Chillatica |
|
|
|
29.11.2012 13:34:49 |
Lutz |
|
|
bei 0 Zellbereich löschen und darunterliegenden Zellbereich nach oben schieben |
29.11.2012 14:12:45 |
Lutz |
|
|
|
29.11.2012 14:29:26 |
Chillatica |
|
|
|
29.11.2012 17:32:04 |
Lutz |
|
|