Zeile einfügen
30.01.2006 16:21:18
Walter
Sub VF_RR_Matrix_RR_Team_Zeile_Einfügen()
'Application.ScreenUpdating = False
ActiveSheet.Unprotect ("bb")
z = ActiveCell().Row
If ActiveSheet.Range(Cells(z, 2), Cells(z, 22)).Select Then
Antwort = MsgBox("Zeile wirklich Einfügen ?", vbYesNo)
If Antwort = vbNo Then
Worksheets("Matrix-Übersicht-RR").Activate
Else: Selection.Insert
ActiveSheet.Range(Cells(1, 2), Cells(1, 22)).Select
ActiveSheet.Range(Cells(z - 1, 2), Cells(z - 1, 22)).Select Selection.Copy
ActiveSheet.Range(Cells(z, 2), Cells(z, 22)).Select Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(0, 0).Select
Selection.ClearContents
MsgBox "Jetzt den Fahrzeug-Typ eingegeb ! "
End If
End If
Application.ScreenUpdating = True
End Sub
Problem:
Ich möchte jetzt das eine Zeile eingfügt wird wo Courser steht in
Spalte 2 und dann soll bis Spalte 14 Makiert werden und wenn der Courser in
Spalte 16 steht soll bis Spalte 28 makiert werden, das einfügen etc. setze ich dann ein.
Brauch also von der aktiveb Zelle aus 13 Spalten jeweils, vielleicht gibt eine
eine Info Box, wenn man nicht in Spalte 2 oder 16 steht ?
Ich fummel mir einen ...
gruß walter