Zeile löschen durch entfernen

Hallo zusammen,
nach tagelangen rumtüfteln bin ich ein wenig verzweifelt und versuche über das Schwarmwissen dieses Forums eine Lösung zu erhalten.
Ich stehe vor folgender Herausforderung:
Ich habe im Tabellenreiter A in Spalte B Namen untereinander stehen. Nun soll, möglichst über das Betätigen der Entfernen Taste auf einem Namen, die ganze Zeile in welcher der Name steht gelöscht werden. Dies soll auch in den Tabellenreitern B und C erfolgen. Wobei sich die Zeilenlöschung auf die gleiche Zeile bezieht.
Also ich möchte den Namen in B17 löschen. Durch Betätigen der Entf. Taste wird die Zeile 17 in den Tabellenblättern A, B und C gelöscht.
Wenn das erfolgt ist, soll in diesen Blättern eine Leerzeile am jeweiligen Tabellenende hinzugefügt werden und die Formeln in allen Tabellenblättern aus Zeile 2 bis zum Tabellenende herunterkopiert werden da es diese durch die Zeilenlöschung zerstört hat. (in meiner Beispiel Datei habe ich jetzt keine Formeln hinterlegt).
Ich habe meinen vorhandenen Code in die Beispieldatei kopiert. Ich hoffe ihr könnt mir einen Hinweis geben wie ich diesen anpassen muss um die Kriterien erfüllen zu können.
Danke schon im voraus und einen schönen Tag ;-)
https://www.herber.de/bbs/user/134406.xlsm
Grüße Andre

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andre,
Erklärung:

.Cells(X, 2)

.Cells wählt die Zelle aus, welche bearbeitet/ausgelesen werden soll.
Das X steht für die Zeile (welche sich ja selbst hochzählt)
Die 2 steht für die SpalteB (1=A,2=B,etc.)
Deine Namen stehen in der Spalte D das würde folgende Codezeile ergeben:

.Cells(X, 4)

In deiner bsp.Datei waren die Namen in Spalte B, deshalb die 2.
Dein neuer Code:

Sub MA_loeschen()
Dim lZeile As Integer
Dim X As Integer
Dim Y As Integer
Dim Namenlöschen
lZeile = 12
X = 12
Namenlöschen = Sheets("Personalplanung").Range("H1").Value    'In A1 steht der Name welcher gelö _
scht werden soll
With Sheets("Qualifikationsmatrix")
For X = 12 To 65                        'Wird gesucht, welche die letzte befüllte Zeile  _
ist (um nachert direkt unten einfügen zu können
If .Cells(X, 4)  "" Then
Y = X
End If
Next X
For lZeile = 12 To 65
If .Cells(lZeile, 4) = Namenlöschen Then     'Wenn der Name mit dem Namen in spalte  _
B übereinstimmt, wird gelöscht
.Rows(lZeile).Delete
Y = Y
.Cells(Y, 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Personalplanung").Rows(lZeile).Delete  'Zeile löschen
Sheets("Personalplanung").Cells(Y, 1).Insert Shift:=xlDown, CopyOrigin:= _
xlFormatFromLeftOrAbove
Sheets("Historie_Einsatzplan").Rows(lZeile).Delete
Sheets("Historie_Einsatzplan").Cells(Y, 1).Insert Shift:=xlDown, CopyOrigin:= _
xlFormatFromLeftOrAbove
Exit Sub        'Sub verlassen, wenn löschen ausgeführt wurde
End If
Next lZeile
End With
End Sub

Gruß
Stefan

Option Explicit Dim X As Integer Dim Y As Integer Dim Z As Integer Sub MA_loeschen() Dim lZeile As Integer Dim Namenlöschen lZeile = 12 X = 12 Namenlöschen = Sheets("Personalplanung").Range("H1").Value Call Zellewählen For lZeile = 12 To 65 If Sheets("Qualifikationsmatrix").Cells(lZeile, 4) = Namenlöschen Then With Sheets("Qualifikationsmatrix") .Rows(lZeile).Delete .Rows(Y).Insert .Range(.Cells(Z, 2), .Cells(Z, 40)).Copy Range(.Cells(Y, 2), .Cells(Y, 40)) End With With Sheets("Personalplanung") .Rows(lZeile).Delete .Rows(Y).Insert .Range(.Cells(Z, 23), .Cells(Z, 100)).Copy Range(.Cells(Y, 23), .Cells(Y, _ 100)) End With With Sheets("Historie_Einsatzplan") .Rows(lZeile).Delete .Rows(Y).Insert .Range(.Cells(Z, 10), .Cells(Z, 40)).Copy Range(.Cells(Y, 10), .Cells(Y, 40) _ ) .Cells(Z, 1).Copy .Cells(Y, 1) End With Exit Sub End If Next lZeile End Sub Private Sub Zellewählen() With Sheets("Qualifikationsmatrix") For X = 12 To 200 If .Cells(X, 4) "" Then Y = X Z = Y - 1 Else Exit Sub End If Next X End With End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread