AW: Verschlüsselung
11.01.2021 21:53:55
Philipp
Hallo Oisse..
https://www.herber.de/bbs/user/142932.xlsx
Anbei die Excel. Leider kann ich ohne Userform und Code hochladen.
Die Userform, die man in der Tabelle entschl. startet besteht nur aus einer Listbox, Textbox und CMDBUtton.
In der Tabelle Datenbank sind alle Werte und entsprechend der passende Code dazu (mit SVERWEIS)
Dieser Code wird aufs Etikett gedruckt.
Und in der 3. Mappe soll man das halt entschlüsseln können - das geht aber mit meiner Methode nicht komplett.
Liebste Grüße
Der Code lautet
Private Sub ListBox1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim lngz As Long
With Me.ListBox1
.ColumnCount = 4
.ColumnWidths = "160;80;80;120"
.Font.Size = 14
End With
With Worksheets("entschl")
lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
For lngZeile = 3 To lngZeileMax
Me.ListBox1.AddItem .Range("A" & lngZeile).Value
Me.ListBox1.Column(1, lngz) = .Range("B" & lngZeile).Value
Me.ListBox1.Column(2, lngz) = .Range("C" & lngZeile).Value
Me.ListBox1.Column(3, lngz) = .Range("D" & lngZeile).Value
lngz = lngz + 1
Next lngZeile
End With
Me.TextBox1.Font.Size = 14
End Sub
Private Sub TextBox1_Change()
Dim i As Integer
Dim lngLaenge As Long
Dim strText As String
Me.ListBox1.Clear
UserForm_Initialize
lngLaenge = Len(Me.TextBox1.Value)
If Left(Me.TextBox1.Value, 1) = "*" Then
strText = LCase(Replace(Me.TextBox1.Value, "*", ""))
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If InStr(Me.ListBox1.List(i, 0), strText) > 0 Or _
InStr(Me.ListBox1.List(i, 1), strText) > 0 Or _
InStr(Me.ListBox1.List(i, 2), strText) > 0 Or _
InStr(LCase(Me.ListBox1.List(i, 3)), strText) > 0 Then
Else
Me.ListBox1.RemoveItem i
End If
Next i
Else
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If Left(Me.ListBox1.List(i, 0), lngLaenge) = Me.TextBox1.Value Or _
Left(Me.ListBox1.List(i, 1), lngLaenge) = Me.TextBox1.Value Or _
Left(Me.ListBox1.List(i, 2), lngLaenge) = Me.TextBox1.Value Or _
LCase(Left(Me.ListBox1.List(i, 3), lngLaenge)) = LCase(Me.TextBox1.Value) Then
Else
Me.ListBox1.RemoveItem i
End If
Next i
End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
