|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.10.2020 16:03:33 |
Steffen |
|
|
|
12.10.2020 16:19:10 |
Gast86673 |
|
|
|
12.10.2020 16:36:54 |
Steffen |
|
|
 Nach Einfügen 1 Reihe Abstand lassen |
12.10.2020 18:02:11 |
Gast97895 |
|
|
|
13.10.2020 09:12:52 |
Steffen |
|
|
|
13.10.2020 12:46:30 |
Gast29148 |
|
|
Von:
Gast97895 |
Datum:
12.10.2020 18:02:11 |
Views:
737 |
Rating:
|
Antwort:
|
Thema:
Nach Einfügen 1 Reihe Abstand lassen |
|
Realisierbar ist das schon, ist nur die Frage wie du es umsetzt. ;)
Das Prinzip mal veranschaulicht:
Option Explicit
Sub Test()
Dim rngUberschrift As Excel.Range
Dim lngUnterpunkt As Long
'# Überschrift 1 mit Unterpunkten
Set rngUberschrift = Range("A1")
rngUberschrift.Value = "Überschrift 1"
For lngUnterpunkt = 1 To 3
rngUberschrift.Offset(lngUnterpunkt, 1).Value = "Unterpunkt " & lngUnterpunkt
Next
Set rngUberschrift = rngUberschrift.Offset(1 + lngUnterpunkt)
'# Überschrift 2 mit Unterpunkten
rngUberschrift.Value = "Überschrift 2"
For lngUnterpunkt = 1 To 5
rngUberschrift.Offset(lngUnterpunkt, 1).Value = "Unterpunkt " & lngUnterpunkt
Next
Set rngUberschrift = rngUberschrift.Offset(1 + lngUnterpunkt)
'# Überschrift 3 mit Unterpunkten
rngUberschrift.Value = "Überschrift 3"
For lngUnterpunkt = 1 To 2
rngUberschrift.Offset(lngUnterpunkt, 1).Value = "Unterpunkt " & lngUnterpunkt
Next
'usw.
End Sub
Wenn du sehen willst, was vor sicht geht;
-
Ordne die Fenster so an das du excel sehen kannst, als auch den VBA-Editor.
-
Setze im VBA-Editor den Text-Cursor igendwo innerhalb der Test-Prozedur und drück dann F8 (= für Einzelschritt).
-
Drück erneut F8 um eine Zeile auszuführen, usw. und die kannst live sehen was in Excel gerade passiert.
|
- 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
|
|
12.10.2020 16:03:33 |
Steffen |
|
|
|
12.10.2020 16:19:10 |
Gast86673 |
|
|
|
12.10.2020 16:36:54 |
Steffen |
|
|
Nach Einfügen 1 Reihe Abstand lassen |
12.10.2020 18:02:11 |
Gast97895 |
|
|
|
13.10.2020 09:12:52 |
Steffen |
|
|
|
13.10.2020 12:46:30 |
Gast29148 |
|
|