Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige