Thema Datum  Von Nutzer Rating
Antwort
18.11.2021 17:23:34 t-H-imo
NotSolved
Blau Probleme bei Iteration durch eine Spalte
 18.11.2021 19:51:20 xlKing
NotSolved
18.11.2021 20:05:46 Mase
NotSolved
18.11.2021 20:36:41 Gast01233
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
18.11.2021 19:51:20		 Views:
636		 Rating:
     
Antwort:
  Ja
Thema:
Probleme bei Iteration durch eine Spalte

Hi Thimo,

probiers mal mit diesem Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Iterieren()
 
i = 2 'Beginn in Zeile
 
Do 'Zeilen einfügen
  If Cells(i, 1) <> "" And Cells(i, 2) <> "" Then
    w = Cells(i, 2)
    Cells(i, 2) = 1
    Cells(i, 3) = Cells(i, 1) & "_" & 1
    If w > 1 Then
      Cells(i, 1).Offset(1, 0).Resize(w - 1, 1).EntireRow.Insert xlDown
      Cells(i, 2).AutoFill Cells(i, 2).Resize(w, 1), xlFillSeries
      Cells(i, 3).AutoFill Cells(i, 3).Resize(w, 1), xlFillSeries
    End If
    i = i + w
  End If
Loop Until Cells(i, 1) = "" And Cells(i, 2) = ""
 
'Rahmen setzen
For k = 7 To 12
  Range(Cells(1, 1), Cells(i - 1, 3)).Borders(k).LineStyle = xlContinuous
Next k
 
'Überschrift setzen
Range("C1") = "Identifier"
 
End Sub

Gruß Mr. K.

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
18.11.2021 17:23:34 t-H-imo
NotSolved
Blau Probleme bei Iteration durch eine Spalte
 18.11.2021 19:51:20 xlKing
NotSolved
18.11.2021 20:05:46 Mase
NotSolved
18.11.2021 20:36:41 Gast01233
NotSolved