Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen einfügen

Forumthread: Zeilen einfügen

Zeilen einfügen
12.04.2022 10:46:11
Dom
Hallo Zusammen,
ich habe eine Tabelle mit 3 Spalten:
Process | Name| Id
MP| Muster 121
MP| Muster 232
HR| Muster | 44
HR| Muster | 55
WT|Muster| 99
WT|Muster |998
Die Tabelle sollte so aussehen:
Process | Name| Id
(Zwischenzeile: soll Solution (MP) stehen)
MP| Muster 121
MP| Muster 232
(Zwischenzeile: soll Human Resources (HR) stehen)
HR| Muster | 44
HR| Muster | 55
(Zwischenzeile: soll Contract (WT) stehen)
WT|Muster| 99
WT|Muster |998
Mit dem Makro füge ich zwischen die Zeilen leere Zeilen ein. Wie kann ich in die Zwischenzeilen z.B Solution (MP) mit einfügen ?
Vielen Dank!

Sub Zeile()
Dim Zeile As Long
Dim Zeilemax As Long
With Sheet2
Zeilemax = .Cells(.Rows.Count, 1).End(xlUp).Row
For Zeile = Zeilemax To 2 Step -1
If .Cells(Zeile, 1).Value  .Cells(Zeile - 1, 1).Value Then
.Rows(Zeile).Insert
End If
Next Zeile
End With
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einfügen
12.04.2022 10:54:40
Matthias
Hi,
If .Cells(Zeile, 1).Value .Cells(Zeile - 1, 1).Value Then
.Rows(Zeile).Insert
.Cells(Zeile, 1) = "DeinText"
End If
Gruß Matthias
AW: Zeilen einfügen
12.04.2022 11:00:47
Dom
Danke Mathias
der Text ist abhängig von der Bezeichnung des Prozesses.
z.B über der Zeile MP| Muster| 121 soll Solution (MP) stehen und
über der Zeile HR| Muster| 121 soll Human Resources (HR) stehen
Process | Name| Id
(Zwischenzeile: soll Solution (MP) stehen)
MP| Muster 121
MP| Muster 232
(Zwischenzeile: soll Human Resources (HR) stehen)
HR| Muster | 44
HR| Muster | 55
(Zwischenzeile: soll Contract (WT) stehen)
WT|Muster| 99
WT|Muster |998
Anzeige
AW: Zeilen einfügen
12.04.2022 11:26:21
GerdL
Hallo

Sub Unit()
Dim Zeile As Long
Dim strText As String
With Tabelle1 'ANPASSEN
For Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(Zeile, 1).Value  .Cells(Zeile - 1, 1).Value Then
.Rows(Zeile).Insert
Select Case .Cells(Zeile + 1, 1)
Case "HR": strText = "Human Resources (HR)"
Case "MP": strText = "Solution (MP)"
Case "WT": strText = "Contract (WT)"
End Select
.Cells(Zeile, 1) = strText
End If
Next Zeile
End With
End Sub
Gruß Gerd
Anzeige
AW: Zeilen einfügen
12.04.2022 14:21:48
Dom
Hallo Gerd,
vielen Dank !
Ich hab den Text2 hinzugefügt der in .Cells(Zeile, 2) = strText2 eingefügt wird.
Das mit dem strText1 = "" ist nicht so elegant gelöst von mir, vllt hast du noch eine Vorschlag :) , ("PCS": strText1 = "" & "PCS": strText2 = "Plan Strategy (PCS)" )
Noch eine Frage: wie kann ich die Cells noch Rot einfärben ?
.Cells(Zeile, 1) = strText1
.Cells(Zeile, 2) = strText2
Font.Color = vbRed

Sub Zeileneinfügen()
Dim Zeile As Long
Dim strText1 As String
Dim strText2 As String
'    Set strText2.Font.Color = vbRed
With Sheet1
For Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(Zeile, 1).Value  .Cells(Zeile - 1, 1).Value Then
.Rows(Zeile).Insert
Select Case .Cells(Zeile + 1, 1)
Case "PCS":  strText1 = "" & "PCS": strText2 = "Plan  (PCS)"
Case "FCP":  strText1 = "" & "FCP": strText2 = "Manage  (FCP)"
Case "ERM": strText1 = "" & "ERM": strText2 = "Enterprise (ERM)"
Case "UIM":  strText1 = "" & "UIM": strText2 = "Market (UIM)"
Case "MCP": strText1 = "" & "MCP": strText2 = "Portfolio (MCP)"
Case "QMP": strText1 = "" & "QMP": strText2 = "Quality (QMP)"
Case "GEN": strText1 = "" & "GEN": strText2 = "General (GEN)"
Case "WTC": strText1 = "" & "WTC": strText2 = "Win (WTC)"
Case "MPP": strText1 = "" & "MPP": strText2 = "Solutions (MPP)"
Case "CMP": strText1 = "" & "CMP": strText2 = "Configuration (CMP)"
Case "PSD": strText1 = "" & "PSD": strText2 = "Develop (PSD)"
Case "PRO": strText1 = "" & "PRO": strText2 = "Produce (PRO)"
Case "ISS": strText1 = "" & "ISS": strText2 = "Provide (ISS)"
Case "SMP": strText1 = "" & "SMP": strText2 = "Source (SMP)"
Case "HRM": strText1 = "" & "HRM": strText2 = "Provide (HRM)"
Case "HSE": strText1 = "" & "HSE": strText2 = "Health (HSE)"
Case "IMP": strText1 = "" & "IMP": strText2 = "Provide(IMP)"
Case "FMS": strText1 = "" & "FMS": strText2 = "Provide (FMS)"
Case "GCS": strText1 = "" & "GCS": strText2 = "Provide (GCS)"
Case "LAP": strText1 = "" & "LAP": strText2 = "Le (LAP)"
Case "BCP": strText1 = "" & "BCP": strText2 = "Com (BCP)"
Case "EXP": strText1 = "" & "EXP": strText2 = "Export (EXP)"
Case "SEC": strText1 = "" & "SEC": strText2 = "Sec (SEC)"
Case "COM": strText1 = "" & "COM": strText2 = "Com (COM)"
Case "CSR": strText1 = "" & "CSR": strText2 = "Corporate (CSR)"
Case "HM": strText1 = "" & "HM": strText2 = "Others"
End Select
'Text1 wird in Spalte 2 eingefügt
'Text2 wird in Spalte 1 eingefügt
.Cells(Zeile, 1) = strText1
.Cells(Zeile, 2) = strText2
End If
Next Zeile
End With
End Sub

Anzeige
AW: Zeilen einfügen
12.04.2022 14:56:29
GerdL
Das geht einfach so:
strText1 = "PCS"
Gruß Gerd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige