Guten Tag und Hallo,
bin neu hier und ein VBA-Anfänger.
Kann mir jemand sagen, wie ich mein Makro ändern kann um mit einem UserForm zuarbeiten, statt mit der Tabelle ? UserForm und Makro habe ich schon, weiß aber nicht wie ich das Makro umschreiben soll, um mit den Textboxen die Werte ins Makro zu bekommen.
Alle Quelldaten sind jetzt in der UserForm als Textbox, Tabelle2 und Tabelle3 bleiben aber erhalten :
Makro :
Rem Option Explicit
Sub BedingtesKopieren()
Dim WSQ As Worksheet
Dim WSZ As Worksheet
Dim SpalteZ As Integer
Dim ZeileZ As Long
Dim ZelleQ As Range
Dim BedArr As Variant
Dim BedOK As Boolean
Dim i As Long
Dim Text1 As String
Set WSQ = Worksheets(„Tabelle1“) 'Quelltabelle
Set WSZ = Worksheets(„Tabelle2“) 'Zieltabelle
Set ZelleQ = WSQ.Range(„A1“) 'QuellZelle
SpalteZ = 1 'ZielSpalte
BedArr = Worksheets(„Tabelle3“).Range(„B2:B12“).Value ’ Bedingungsliste
Text1 = „Personalnummer existiert nicht, versuchen Sie es erneut !“
For i = LBound(BedArr) To UBound(BedArr)
If BedArr(i, 1) = ZelleQ.Value Then
BedOK = True
Exit For
End If
Next
If Not BedOK Then MsgBox Text1
If Not BedOK Then ZelleQ.Select
Selection.ClearContents
If Not BedOK Then Exit Sub
ZeileZ = WSZ.Cells(WSZ.Rows.Count, SpalteZ).End(xlUp).Row
ZeileZ = IIf((WSZ.Cells(ZeileZ, SpalteZ).Value = „“), ZeileZ, ZeileZ + 1)
ZelleQ.Copy Destination:=WSZ.Cells(ZeileZ, SpalteZ)
call Auswahltastenaktivieren
End Sub
Irgendjemand eine Idee ?
Danke Alex