Thema Datum  Von Nutzer Rating
Antwort
29.06.2022 10:48:46 Tim
NotSolved
29.06.2022 13:09:21 Gast73487
NotSolved
29.06.2022 13:35:07 Gast76895
NotSolved
Blau Bestimmte Anzahl an leeren Zeilen hinzufügen
 29.06.2022 13:41:39 Gast24459
NotSolved
29.06.2022 13:55:48 Gast24459
NotSolved

Ansicht des Beitrags:
Von:
Gast24459		 Datum:
29.06.2022 13:41:39		 Views:
780		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Anzahl an leeren Zeilen hinzufügen		 
Option Explicit

Public Sub Test()
  
  Dim rngNew As Excel.Range
  Dim x As Long
  
  x = 5
  
  If Not Range("A1").ListObject Is Nothing Then
  '# Zelle A1 ist teil eines Smart Table
    
    Set rngNew = AddRowsToSmartTable(Range("A1").ListObject, x)
    
  Else
  '# normal Range
    
    'letzte Zeile mit Daten ermitteln ...
    
    '... wenn die Daten bis A4:C4 gehen:
    Set rngNew = AddRowsBelowRange(Range("A4:C4"), x)
    
  End If
  
  'mach etwas mit
  ' rngNew ...
  
  rngNew.Select
  
End Sub

Private Function AddRowsToSmartTable(Table As Excel.ListObject, Rows As Long) As Excel.Range
  
  If Rows <= 0 Then
    Call Err.Raise(5) 'invalid arg
  End If
  
  Call Table.Resize(Table.Range.Resize(Table.Range.Rows.Count + Rows))
  Set AddRowsToSmartTable = Table.DataBodyRange.Rows(Table.DataBodyRange.Rows.Count - Rows + 1 & ":" & Table.DataBodyRange.Rows.Count)
  
End Function

Private Function AddRowsBelowRange(Range As Excel.Range, Rows As Long) As Excel.Range
  
  If Rows <= 0 Then
    Call Err.Raise(5) 'invalid arg
  End If
  
  With Range.Rows(Range.Rows.Count).Offset(1)
    Call .Resize(Rows).Insert(xlShiftDown)
    Set AddRowsBelowRange = .Offset(-Rows).Resize(Rows)
  End With
  
End Function

 

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
29.06.2022 10:48:46 Tim
NotSolved
29.06.2022 13:09:21 Gast73487
NotSolved
29.06.2022 13:35:07 Gast76895
NotSolved
Blau Bestimmte Anzahl an leeren Zeilen hinzufügen
 29.06.2022 13:41:39 Gast24459
NotSolved
29.06.2022 13:55:48 Gast24459
NotSolved