|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.03.2008 19:56:14 |
Daniel |
|
|
|
29.03.2008 19:58:14 |
Daniel |
|
|
|
30.03.2008 15:03:06 |
Holger |
|
|
|
30.03.2008 19:39:43 |
Daniel |
|
|
|
30.03.2008 19:59:31 |
Daniel |
|
|
|
30.03.2008 20:13:26 |
Daniel |
|
|
|
30.03.2008 20:17:34 |
Daniel |
|
|
|
31.03.2008 09:07:34 |
jh |
|
|
|
31.03.2008 18:20:12 |
Daniel |
|
|
 Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:2 Leerzeilen nach einem |
01.04.2008 02:08:41 |
jh |
|
|
|
01.04.2008 12:49:35 |
Holger |
|
|
|
30.03.2008 20:48:30 |
Holger |
|
|
|
30.03.2008 20:53:55 |
Daniel |
|
|
|
30.03.2008 21:04:45 |
Holger |
|
|
|
30.03.2008 21:29:17 |
Daniel |
|
|
|
30.03.2008 20:11:27 |
Daniel |
|
|
Von:
jh |
Datum:
01.04.2008 02:08:41 |
Views:
985 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:2 Leerzeilen nach einem |
Hallo,
dein Code ist noch nicht optimal. Es genügt nicht, die
letzte Zeile einmal am Schleifenbeginn zu ermitteln,
weil sie sich bei jedem Einfügen um 2 erhöht. Je nach
Anzahl der eingefügten Zeilen werden dann evtl. Zellen
mit "hier" am Ende des benutzten Bereiches nicht mehr
berücksichtigt. Dafür habe ich in meinem Beispiel die
Variable l, die vor Schleifenbeginn auf die aktuell
letzte Zeile gesetzt und bei jeder Einfügung um 2
erhöht wird. Deshalb gehört auch die Schleifenbedingung
nicht hinter Do, sondern hinter Loop:
Loop Until i > l
Wenn du nicht völlig sicher bist, dass in Spalte A nicht
wieder ein Fehlerwert auftaucht (vielleicht aus einem
Grund, den du jetzt noch nicht siehst), solltest du die
Prüfung mit IsError wie in meinem Beispiel drinlassen.
Zwecks Formatierung ergänzt du nach dem einfügen der
zwei Zeilen folgenden Code:
With Range(Cells(i + 1, 1), Cells(i + 2, 256))
.Font.ColorIndex = xlColorIndexAutomatic
.Interior.ColorIndex = xlColorIndexNone
.Borders(xlEdgeBottom).LineStyle = xlLineStyleNone
.Borders(xlEdgeLeft).LineStyle = xlLineStyleNone
.Borders(xlEdgeRight).LineStyle = xlLineStyleNone
.Borders(xlInsideHorizontal).LineStyle = xlLineStyleNone
.Borders(xlInsideVertical).LineStyle = xlLineStyleNone
End With
Gruß
|
- 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.03.2008 19:56:14 |
Daniel |
|
|
|
29.03.2008 19:58:14 |
Daniel |
|
|
|
30.03.2008 15:03:06 |
Holger |
|
|
|
30.03.2008 19:39:43 |
Daniel |
|
|
|
30.03.2008 19:59:31 |
Daniel |
|
|
|
30.03.2008 20:13:26 |
Daniel |
|
|
|
30.03.2008 20:17:34 |
Daniel |
|
|
|
31.03.2008 09:07:34 |
jh |
|
|
|
31.03.2008 18:20:12 |
Daniel |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:2 Leerzeilen nach einem |
01.04.2008 02:08:41 |
jh |
|
|
|
01.04.2008 12:49:35 |
Holger |
|
|
|
30.03.2008 20:48:30 |
Holger |
|
|
|
30.03.2008 20:53:55 |
Daniel |
|
|
|
30.03.2008 21:04:45 |
Holger |
|
|
|
30.03.2008 21:29:17 |
Daniel |
|
|
|
30.03.2008 20:11:27 |
Daniel |
|
|