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 |
|
|
|
12.10.2020 18:02:11 |
Gast97895 |
|
|
|
13.10.2020 09:12:52 |
Steffen |
|
|
Nach Einfügen 1 Reihe Abstand lassen |
13.10.2020 12:46:30 |
Gast29148 |
|
|
Von:
Gast29148 |
Datum:
13.10.2020 12:46:30 |
Views:
799 |
Rating:
|
Antwort:
|
Thema:
Nach Einfügen 1 Reihe Abstand lassen |
Mir stellen sich zwei Fragen:
-
Soll zu bereits vorhandenen Überschriften - nachträglich - weitere Unterpunkte eintragbar sein (ja/nein)?
-
Wie findest du derzeit die Position (Zelle), für eine neue Überschrift / Unterpunkt?
Mein vorheriges Beispiel sollte dir nur veranschaulichen, dass wenn du diese Zelle für Überschrift hast, du ganz einfach auf Unterpunkte testen und neue Überschriften hinzufügen kannst.
Hierzu empfehle ich Hilfsfunktionen zu diesem Zweck zu erstellen, z.B.
Option Explicit
Public Function ErstelleNeueUberschrift(Uberschrift As String) As Excel.Range
With ThisWorkbook.Worksheets("Tabelle1")
' 1) suche in Spalte A nach letzter Zelle mit Inhalt
' -> letzteZelle | z.B Zelle A3
' 2) ermittle Anzahl der Unterpunkte von dieser Überschrift
' -> nAnzahlUnterpkt | z.B 3 Unterpunkte
' 3) erstelle neue Überschrift
' -> Set letzteZelle = letzteZelle.Offset(nAnzahlUnterpkt + 2, 0) | obigen Beispiel folgend: [A3].Offset(3 + 2, 0) => A8
' -> letzteZelle.Value = Überschrift
' Funktionsrückgabe setzen
' Set ErstelleNeueUberschrift = letzteZelle
End With
End Function
Sub Anwendungsbeispiel()
Dim rngU As Excel.Range
Set rngU = ErstelleNeueUberschrift("Überschrift 1")
End Sub
|
- 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 |
|
|
|
12.10.2020 18:02:11 |
Gast97895 |
|
|
|
13.10.2020 09:12:52 |
Steffen |
|
|
Nach Einfügen 1 Reihe Abstand lassen |
13.10.2020 12:46:30 |
Gast29148 |
|
|