Thema Datum  Von Nutzer Rating
Antwort
05.11.2021 14:01:50 Marian
NotSolved
Blau VBA Werte zuordnen
 05.11.2021 14:35:46 Gast54432
NotSolved
05.11.2021 14:37:11 Gast54432
NotSolved
08.11.2021 07:11:47 Marian
NotSolved
08.11.2021 16:19:56 Gast98085
NotSolved

Ansicht des Beitrags:
Von:
Gast54432		 Datum:
05.11.2021 14:35:46		 Views:
460		 Rating:
     
Antwort:
  Ja
Thema:
VBA Werte zuordnen

evtl. so:

Option Explicit

Public Sub Test()
  
  Dim rngData As Excel.Range
  Dim rngRow As Excel.Range
  
  Set rngData = Range("A1").CurrentRegion
  'Kopfzeile rauszählen
  Set rngData = rngData.Resize(rngData.Rows.Count - 1).Offset(1)
  
  Set rngRow = rngData.Rows(1)
  Do
    Call rngRow.Resize(3).Offset(1).Insert(xlShiftDown)
    Call rngRow.AutoFill(rngRow.Resize(4), xlFillCopy)
    Set rngRow = rngRow.Offset(4)
  Loop While rngRow.Row <= rngData.Rows(rngData.Rows.Count).Row
  
  Set rngData = rngData.Resize(rngData.Rows.Count + 3)
  
  With rngData.Columns(1).Offset(0, 2)
    .Cells(1).Offset(-1).Value = "Teil"
    .FormulaR1C1 = "=IF(RC[-2]=R[-1]C[-2],R[-1]C+1,1)"
    .Cells(1).Value = 1
    .Value = .Value
  End With
  
End Sub

 

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
05.11.2021 14:01:50 Marian
NotSolved
Blau VBA Werte zuordnen
 05.11.2021 14:35:46 Gast54432
NotSolved
05.11.2021 14:37:11 Gast54432
NotSolved
08.11.2021 07:11:47 Marian
NotSolved
08.11.2021 16:19:56 Gast98085
NotSolved