AW: Hier mein Makro
25.11.2005 16:15:55
Walter
Hallo Heiko,
habe dein Makro eingesetzt, funktioniert. Leider habe ich aber eine 2.UF für die Eingabe Maske, wie kann ich dies ändern?
Hier mein Makro:
Const strSh = "Kulanzblatt"
Const intstartzeile = 91
Const ersteSpalte = 37
Dim Neu As Boolean
Private Sub CommandButton1_Click()
'Übernehmen
With NDL_UF.ListBox1
If TextBoxNDL = "" Then
MsgBox "Keine NDL oder Center Nr. angegeben!"
TextBoxNDL.SetFocus
Exit Sub
End If
' If TextBox_Name = "" Then
' MsgBox "Kein Name angegeben!"
' TextBoxNDL.SetFocus
' Exit Sub
' End If
Dim z
Sheets("Tabelle1").Activate
Range("AL91").Select
z = Range("AL91").End(xlDown).Row
ActiveSheet.Range(Cells(z, 38), Cells(z, 38)).Select
Selection.Insert Shift:=xlDown ' Zellen nach unten verschoben
ActiveSheet.Range(Cells(z + 1, 38), Cells(z + 1, 38)).Select
Selection.Copy
ActiveSheet.Range(Cells(z, 38), Cells(z, 38)).Select ' 1 Zeile nach oben
ActiveSheet.Paste
Application.CutCopyMode = False ' makierung aufheben
ActiveSheet.Range(Cells(z + 1, 38), Cells(z + 1, 38)).Select ' Zeile nach unten
Selection.ClearContents ' kompl. Zeile löschen
Range("AL91").Select
If Neu Then
.AddItem Format(.List(.ListCount - 1, 0) + 1, "0000")
.ListIndex = .ListCount - 1
End If
.List(.ListIndex, 1) = TextBoxNDL
' .List(.ListIndex, 2) = TextBox_Name
End With
Neu = False
Me.Hide
End Sub
Private Sub CommandButton2_Click()
'Abbrechen
Neu = False
Me.Hide
End Sub
Private Sub CommandButton3_Click()
'Löschen
TextBoxNDL = ""
'TextBox_Name = ""
End Sub
Private Sub TextBox_Name_Change()
End Sub
Private Sub TextBoxNDL_Change()
End Sub
Private Sub UserForm_Activate()
With NDL_UF.ListBox1
If Not Neu Then
TextBoxNDL = .List(.ListIndex, 1)
' TextBox_Name = .List(.ListIndex, 2)
Else
TextBoxNDL = ""
' TextBox_Name = ""
End If
TextBoxNDL.SetFocus
End With
TextBoxNDL.SetFocus
With TextBoxNDL 'hier die nächste Textbox setzen dann Set Focus i.o.
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Sub ShowNew()
Neu = True
Me.Show
End Sub
Hab gerade beim aufruf der UF festgestellt, die 1.Spalte, die Numerierung fehlt! Die Numerierung wird ja
automatisch mit gelöscht oder ergänzt.
Wenn nicht, muß ich halt sehen, sonst wäre schön !!!
Gruß Walter