'''1_1_MSp############################
On Error GoTo EERR
Dim BLATBLAT As Integer
For BLATBLAT = 1 To Worksheets.Count
Worksheets(BLATBLAT).Activate
ActiveWindow.View = xlNormalView
ActiveSheet.AutoFilterMode = False
Next BLATBLAT
Worksheets(1).Activate
UserForm1.Show
Exit Sub
EERR:
'''1_1_MSp############################
'''2_2_MSp############################
Sub AAAUUFAF()
On Error GoTo ERR
TBB1.BackColor = &HC0FFFF
TBB2.BackColor = &HC0FFFF
KuNr.Enabled = True
KuNr.BackColor = &HC0FFFF
Dim IC As String
IC = CoB1
If CoB1 > "" Then
Sheets(IC).Activate
End If
If ActiveSheet.Name <> "Zailer" And ActiveSheet.Name <> "POMO" Then
Dim AAAZ As Variant
Dim AAAC As Variant
POMO.[a2] = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
POMO.[a3] = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Column
AAAZ = CDbl(POMO.[a2])
AAAC = CDbl(POMO.[a3])
SPALTA1 = ""
SPALTA2 = ""
SPALTA3 = ""
SPALTA4 = ""
SPALTA5 = ""
SPALTA6 = ""
SPALTA7 = ""
SPALTB1 = ""
SPALTB2 = ""
SPALTB3 = ""
SPALTB4 = ""
SPALTB5 = ""
SPALTB6 = ""
SPALTB7 = ""
SPALTC1 = ""
SPALTC2 = ""
SPALTC3 = ""
SPALTC4 = ""
SPALTC5 = ""
SPALTC6 = ""
SPALTC7 = ""
SPALTD1 = ""
SPALTD2 = ""
SPALTD3 = ""
SPALTD4 = ""
SPALTD5 = ""
SPALTD6 = ""
SPALTD7 = ""
SPALTE1 = ""
SPALTE2 = ""
SPALTE3 = ""
SPALTE4 = ""
SPALTE5 = ""
SPALTE6 = ""
SPALTE7 = ""
SPALTF1 = ""
SPALTF2 = ""
SPALTF3 = ""
SPALTF4 = ""
SPALTF5 = ""
SPALTF6 = ""
SPALTF7 = ""
SPALTG1 = ""
SPALTG2 = ""
SPALTG3 = ""
SPALTG4 = ""
SPALTG5 = ""
SPALTG6 = ""
SPALTG7 = ""
SPALTA = ""
SPALTB = ""
SPALTC = ""
SPALTD = ""
SPALTE = ""
SPALTF = ""
SPALTG = ""
KuNr = ""
TBB1.Value = ""
TBB2.Value = ""
TBB3.Value = ""
TBB4.Value = ""
TBB5.Value = ""
TBB6.Value = ""
POMO.[a1] = ""
POMO.[b1] = ""
POMO.[c1] = ""
POMO.[d1] = ""
POMO.[e1] = ""
POMO.[F1] = ""
POMO.[g1] = ""
POMO.[h1] = ""
POMO.[i1] = ""
POMO.[j1] = ""
POMO.[k1] = ""
POMO.[L1] = ""
POMO.[m1] = ""
If POMO.[a2] < 65536 Then
Dim ††† As Variant
If POMO.[a3] = 1 Then
POMO.[a4] = 0
††† = POMO.[a4]
End If
If POMO.[a3] = 7 Then
POMO.[a4] = 6
††† = POMO.[a4]
End If
SPALTA = ActiveSheet.Cells(1, AAAC - †††).Value
SPALTB = ActiveSheet.Cells(1, AAAC + 1).Value
SPALTC = ActiveSheet.Cells(1, AAAC + 2).Value
SPALTD = ActiveSheet.Cells(1, AAAC + 3).Value
SPALTE = ActiveSheet.Cells(1, AAAC + 4).Value
SPALTF = ActiveSheet.Cells(1, AAAC + 5).Value
SPALTG = ActiveSheet.Cells(1, AAAC + 6).Value
If POMO.[a2] > 8 Then
SPALTA1 = ActiveSheet.Cells(AAAZ - 6, AAAC - †††).Value
SPALTB1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 1).Value
SPALTC1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 2).Value
SPALTD1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 3).Value
SPALTE1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 4).Value
SPALTF1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 5).Value
SPALTG1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 6).Value
End If
If POMO.[a2] > 7 Then
SPALTA2 = ActiveSheet.Cells(AAAZ - 5, AAAC - †††).Value
SPALTB2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 1).Value
SPALTC2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 2).Value
SPALTD2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 3).Value
SPALTE2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 4).Value
SPALTF2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 5).Value
SPALTG2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 6).Value
End If
If POMO.[a2] > 6 Then
SPALTA3 = ActiveSheet.Cells(AAAZ - 4, AAAC - †††).Value
SPALTB3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 1).Value
SPALTC3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 2).Value
SPALTD3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 3).Value
SPALTE3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 4).Value
SPALTF3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 5).Value
SPALTG3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 6).Value
End If
If POMO.[a2] > 5 Then
SPALTA4 = ActiveSheet.Cells(AAAZ - 3, AAAC - †††).Value
SPALTB4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 1).Value
SPALTC4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 2).Value
SPALTD4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 3).Value
SPALTE4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 4).Value
SPALTF4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 5).Value
SPALTG4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 6).Value
End If
If POMO.[a2] > 4 Then
SPALTA5 = ActiveSheet.Cells(AAAZ - 2, AAAC - †††).Value
SPALTB5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 1).Value
SPALTC5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 2).Value
SPALTD5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 3).Value
SPALTE5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 4).Value
SPALTF5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 5).Value
SPALTG5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 6).Value
End If
If POMO.[a2] > 3 Then
SPALTA6 = ActiveSheet.Cells(AAAZ - 1, AAAC - †††).Value
SPALTB6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 1).Value
SPALTC6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 2).Value
SPALTD6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 3).Value
SPALTE6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 4).Value
SPALTF6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 5).Value
SPALTG6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 6).Value
End If
If POMO.[a2] > 2 Then
SPALTA7 = ActiveSheet.Cells(AAAZ, AAAC - †††).Value
SPALTB7 = ActiveSheet.Cells(AAAZ, AAAC + 1).Value
SPALTC7 = ActiveSheet.Cells(AAAZ, AAAC + 2).Value
SPALTD7 = ActiveSheet.Cells(AAAZ, AAAC + 3).Value
SPALTE7 = ActiveSheet.Cells(AAAZ, AAAC + 4).Value
SPALTF7 = ActiveSheet.Cells(AAAZ, AAAC + 5).Value
SPALTG7 = ActiveSheet.Cells(AAAZ, AAAC + 6).Value
End If
End If
End If
If ActiveSheet.Name <> "Zailer" And ActiveSheet.Name <> "POMO" Then
TANA = ActiveSheet.Name
End If
Exit Sub
ERR:
End Sub
Private Sub CommandButton18_Click()
On Error GoTo EERR
Dim DDAATT As String
Dim AAAR As Long
Dim strSuchen As Variant
DDAATT = Application.GetOpenFilename(, , "Bild auswählen www.excel.npage.de", , False)
Select Case Right(DDAATT, 3)
Case "ani", "apng", "bmp", "cht", "cur", "gif", "ico", "jpg", "jpeg", "kml", "png", "rgb", "svg", "svgz", "tif", "tiff", "xbm", "xpm", "JPG", "ANI", "APNG", "BMP", "CHT", "CUR", "GIF", "ICO", "JPEG", "KML", "PNG", "RGB", "SVG", "SVGZ", "TIF", "TIFF", "XBM", "XPM"
Case Else
MsgBox " You have not selected a valid image!", 48, "www.excel.npage.de "
End Select
Image1.Picture = LoadPicture(DDAATT)
If ComboBox1.Value <> "" Then
strSuchen = ComboBox1.Value
AAAR = CDbl(ZZFFF2.Range("b13:b5012").Find(What:=strSuchen, lookat:=xlWhole).Row)
ZZFFF2.Cells(AAAR, 143).Value = DDAATT
End If
Exit Sub
EERR:
End Sub
Private Sub CommandButton19_Click()
On Error GoTo EERR
Unload Me
Dim DDNN As Variant
DDNN = Application.InputBox("Password:", "www.excel.npage.de Remove picture")
If DDNN <> 3 Then
MsgBox " The password is wrong!", , "www.excel.npage.de Remove picture"
Exit Sub
Else
End If
Dim AAAR As Long
Dim strSuchen As Variant
If ComboBox1.Value <> "" Then
strSuchen = ComboBox1.Value
AAAR = CDbl(ZZFFF2.Range("b13:b5012").Find(What:=strSuchen, lookat:=xlWhole).Row)
ZZFFF2.Cells(AAAR, 143).Value = ""
End If
MsgBox " Selected ID No. does not have a picture anymore!", 48, "www.excel.npage.de "
Exit Sub
EERR:
End Sub
Private Sub ComboBox1_Change()
On Error GoTo EERR
Dim ††† As Long
Dim AAAR As Long
Dim DDAATT As String
CommandButton1.Visible = False
CommandButton3.Visible = False
CommandButton18.Visible = False
CommandButton19.Visible = False
If ComboBox1.Value <> "" Then
CommandButton1.Visible = True
CommandButton3.Visible = True
CommandButton18.Visible = True
CommandButton19.Visible = True
End If
For ††† = 1 To 14
Me.Controls("ComboBox" & CStr(††† + 2)).Value = ""
Me.Controls("TextBox" & CStr(††† + 1)).Value = ""
Next †††
Call TextBox19_Change
DDAATT = ""
Image1.Picture = LoadPicture(DDAATT)
AAAR = ComboBox1.ListIndex + 13
DDAATT = ZZFFF2.Cells(AAAR, 143).Value
Image1.Picture = LoadPicture(DDAATT)
Exit Sub
EERR:
End Sub
Private Sub ComboBox2_Change()
On Error GoTo EERR
If ComboBox2.Value <> "" Then
ComboBox1.Value = ComboBox2.Value
Else:
ComboBox1.Value = ""
End If
Exit Sub
EERR:
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Dim AAPP As Long
Dim AAAZ As Long
Dim SCHOT As Long
Dim RAAS As Long
Dim AAAC As Long
Dim DWAA As Long
ZZFFF3.Activate
ZZFFF3.Range("a1:h45").Value = ""
ZZFFF3.Range("a1:h45").Interior.Pattern = xlNone
ZZFFF3.Range("a1:h45").Font.Bold = False
ZZFFF3.Range("a1:h45").Font.Name = "Arial"
ZZFFF3.Range("a1:h45").RowHeight = 15
ActiveSheet.DrawingObjects.Delete
ZZFFF3.Range("a1:h45").Interior.ColorIndex = xlColorIndexNone
ZZFFF3.Range("a1:h45").HorizontalAlignment = xlCenter
ZZFFF3.Range("a1:h45").Font.Size = 11
ZZFFF3.Range("a1:h45").NumberFormat = "General"
AAPP = ComboBox1.ListIndex + 13
ZZFFF3.Activate
ZZFFF3.[a1].Select
With ActiveCell
.ColumnWidth = 22.14
.RowHeight = 62.25
End With
For Each SEGG In ActiveSheet.Shapes
If Not Intersect(SEGG.TopLeftCell, ActiveCell) Is Nothing Then SEGG.Delete
Next SEGG
Set ZZEELL = ActiveCell
ZZFFF3.[b1] = "ID No.:"
ZZFFF3.[c1] = ComboBox1.Value
If ZZFFF2.Cells(AAPP, 143).Value <> "" Then
DDAATT = ZZFFF2.Cells(AAPP, 143).Value
Select Case Right(DDAATT, 3)
Case "ani", "apng", "bmp", "cht", "cur", "gif", "ico", "jpg", "jpeg", "kml", "png", "rgb", "svg", "svgz", "tif", "tiff", "xbm", "xpm", "JPG", "ANI", "APNG", "BMP", "CHT", "CUR", "GIF", "ICO", "JPEG", "KML", "PNG", "RGB", "SVG", "SVGZ", "TIF", "TIFF", "XBM", "XPM"
ActiveSheet.Pictures.Insert(DDAATT).Select
With Selection.ShapeRange
.Top = ZZEELL.Top
.Left = ZZEELL.Left
SCAAL = WorksheetFunction.Min(ZZEELL.Width / .Width, ZZEELL.Height / .Height)
.Height = .Height * SCAAL
End With
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
End Select
End If
AAAZ = 2
AAAC = 0
For SCHOT = 1 To 20
DWAA = 0
For RAAS = 1 To 7
If ZZFFF2.Cells(12, RAAS + 2 + AAAC) <> "" Then
ZZFFF3.Cells(AAAZ, RAAS + 1) = ZZFFF2.Cells(12, RAAS + 2 + AAAC)
ZZFFF3.Cells(AAAZ, RAAS + 1).Font.Bold = ZZFFF2.Cells(12, RAAS + 2 + AAAC).Font.Bold
ZZFFF3.Cells(AAAZ + 1, RAAS + 1) = ZZFFF2.Cells(AAPP, RAAS + 2 + AAAC)
ZZFFF3.Cells(AAAZ + 1, RAAS + 1).NumberFormat = ZZFFF2.Cells(AAPP, RAAS + 2 + AAAC).NumberFormat
DWAA = DWAA + 1
End If
Next RAAS
If DWAA > 0 Then
AAAZ = AAAZ + 2
End If
AAAC = AAAC + 7
Next SCHOT
ZZFFF3.[b1].Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
With ActiveSheet.PageSetup
.RightHeader = ComboBox1.Value & ": &P/&N"
End With
For SCHOT = 2 To 8
ActiveSheet.Cells(Rows.Count, SCHOT).ColumnWidth = 40
ActiveSheet.Cells(Rows.Count, SCHOT).EntireColumn.AutoFit
Next SCHOT
Application.CutCopyMode = False
UserForm1.Hide
End Sub
Private Sub CommandButton10_Click()
On Error GoTo EERR
TextBox19.Value = ""
TextBox19.Value = 4
Exit Sub
EERR:
End Sub
Private Sub CommandButton11_Click()
On Error GoTo EERR
TextBox19.Value = ""
TextBox19.Value = 5
Exit Sub
EERR:
End Sub
Private Sub CommandButton12_Click()
On Error GoTo EERR
TextBox19.Value = ""
TextBox19.Value = 6
Exit Sub
EERR:
End Sub
Private Sub CommandButton13_Click()
On Error GoTo EERR
TextBox19.Value = ""
TextBox19.Value = 7
Exit Sub
EERR:
End Sub
Private Sub CommandButton14_Click()
On Error GoTo EERR
TextBox19.Value = ""
TextBox19.Value = 8
Exit Sub
EERR:
End Sub
Private Sub CommandButton15_Click()
On Error GoTo EERR
TextBox19.Value = ""
TextBox19.Value = 9
Exit Sub
EERR:
End Sub
Private Sub CommandButton16_Click()
On Error GoTo EERR
TextBox19.Value = ""
TextBox19.Value = 10
Exit Sub
EERR:
End Sub
Private Sub CommandButton21_Click()
On Error Resume Next
Dim ††† As Long
Dim BERE As Long
Dim AAAA As Long
Dim KKKK As Long
Dim SCHOT As Long
BERE = (CDbl(TextBox20.Value) - 1) * 14 + 2
If CommandButton21.BackColor = &HFFFF& Then
For ††† = 1 To 14
If Me.Controls("ComboBox" & CStr(††† + 16)).Value = "Text" Then
ZZFFF2.Cells(10, BERE + †††).NumberFormat = "@"
End If
If Me.Controls("ComboBox" & CStr(††† + 16)).Value = “Number” Then
ZZFFF2.Cells(10, BERE + †††).NumberFormat = "General"
End If
If Me.Controls("ComboBox" & CStr(††† + 16)).Value = “Date” Then
ZZFFF2.Cells(10, BERE + †††).NumberFormat = "m/d/yyyy"
End If
If Me.Controls("ComboBox" & CStr(††† + 16)).Value = “Time” Then
ZZFFF2.Cells(10, BERE + †††).NumberFormat = "h:mm"
End If
Next †††
For ††† = 1 To 14
If Me.Controls("ComboBox" & CStr(††† + 16)).Visible = True Then
Me.Controls("ComboBox" & CStr(††† + 16)).SetFocus
Exit Sub
End If
Next †††
End If
If CommandButton21.BackColor = &HC00000 Then
If ComboBox1.Value <> "" Then
AAAA = ComboBox1.ListIndex + 13
End If
If ComboBox1.Value = "" Then
KKKK = 0
For SCHOT = 13 To 5013
If KKKK = 0 Then
If ZZFFF2.Cells(SCHOT, 2).Value = "" Then
KKKK = ZZFFF2.Cells(SCHOT, 2).Row
End If
End If
Next SCHOT
AAAA = KKKK
End If
If AAAA > 5012 Then
MsgBox "The database has space for only 5000 entries!", 48, "www.excel.npage.de"
Exit Sub
End If
For ††† = 1 To 14
If ZZFFF2.Cells(12, BERE + †††).Value <> "" Then
If Me.Controls("ComboBox" & CStr(††† + 2)).Visible = True Then
ZZFFF2.Cells(AAAA, BERE + †††).Value = Me.Controls("ComboBox" & CStr(††† + 2)).Value
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "General" Then
ZZFFF2.Cells(AAAA, BERE + †††).Value = CDbl(Me.Controls("ComboBox" & CStr(††† + 2)).Value)
ZZFFF2.Cells(AAAA, BERE + †††).NumberFormat = "General"
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "m/d/yyyy" Then
ZZFFF2.Cells(AAAA, BERE + †††).Value = CDate(Me.Controls("ComboBox" & CStr(††† + 2)).Value)
ZZFFF2.Cells(AAAA, BERE + †††).NumberFormat = "m/d/yyyy"
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "h:mm" Then
ZZFFF2.Cells(AAAA, BERE + †††).Value = CDate(Me.Controls("ComboBox" & CStr(††† + 2)).Value)
ZZFFF2.Cells(AAAA, BERE + †††).NumberFormat = "h:mm"
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "@" Then
ZZFFF2.Cells(AAAA, BERE + †††).NumberFormat = "@"
End If
End If
If Me.Controls("TextBox" & CStr(††† + 1)).Visible = True Then
ZZFFF2.Cells(AAAA, BERE + †††).Value = Me.Controls("TextBox" & CStr(††† + 1)).Value
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "General" Then
ZZFFF2.Cells(AAAA, BERE + †††).Value = CDbl(Me.Controls("TextBox" & CStr(††† + 1)).Value)
ZZFFF2.Cells(AAAA, BERE + †††).NumberFormat = "General"
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "m/d/yyyy" Then
ZZFFF2.Cells(AAAA, BERE + †††).Value = CDate(Me.Controls("TextBox" & CStr(††† + 1)).Value)
ZZFFF2.Cells(AAAA, BERE + †††).NumberFormat = "m/d/yyyy"
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "h:mm" Then
ZZFFF2.Cells(AAAA, BERE + †††).Value = CDate(Me.Controls("TextBox" & CStr(††† + 1)).Value)
ZZFFF2.Cells(AAAA, BERE + †††).NumberFormat = "h:mm"
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "@" Then
ZZFFF2.Cells(AAAA, BERE + †††).NumberFormat = "@"
End If
End If
End If
Next †††
ZZFFF2.Cells(AAAA, 2).Value = AAAA + 9988
With ZZFFF2
ComboBox1.RowSource = .Range(.Cells(13, 2), .Cells(.Cells(Rows.Count, 2).End(xlUp).Row, 2)).Address(External:=True)
End With
ComboBox1.Value = AAAA + 9988
TextBox23.Value = ""
TextBox24.Value = ""
TextBox23.Value = 1
TextBox24.Value = 1
If CDbl(Label32.Caption) < CDbl(Label33.Caption) Then
For ††† = 1 To 14
If Me.Controls("ComboBox" & CStr(††† + 2)).Visible = True Then
Me.Controls("ComboBox" & CStr(††† + 2)).SetFocus
Exit Sub
End If
Next †††
End If
If CDbl(Label32.Caption) > CDbl(Label33.Caption) Then
For ††† = 1 To 14
If Me.Controls("TextBox" & CStr(††† + 1)).Visible = True Then
Me.Controls("TextBox" & CStr(††† + 1)).SetFocus
Exit Sub
End If
Next †††
End If
End If
Exit Sub
End Sub
Private Sub CommandButton2_Click()
On Error Resume Next
Dim ZEIL As Long
Dim MMMM As Long
Dim CCCC As Long
Dim AAAZ As Long
Dim SCHOT As Long
Dim BERE As Long
BERE = (CDbl(TextBox19.Value) - 1) * 14 + 2
ComboBox2.Clear
ZZFFF4.Range("a1:b5001").Value = ""
ComboBox2.Visible = True
Label3.Visible = True
AAAZ = CDbl(ZZFFF2.Cells(Rows.Count, 2).End(xlUp).Row)
SCHOT = 0
For ZEIL = 13 To AAAZ
MMMM = 0
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 1).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 1).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 1).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 1).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 1).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 1).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 2).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 2).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 2).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 2).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 2).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 2).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 3).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 3).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 3).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 3).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 3).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 3).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 4).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 4).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 4).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 4).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 4).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 4).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 5).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 5).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 5).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 5).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 5).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 5).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 6).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 6).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 6).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 6).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 6).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 6).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 7).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 7).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 7).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 7).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 7).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 7).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 8).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 8).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 8).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 8).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 8).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 8).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 9).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 9).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 9).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 9).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 9).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 9).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 10).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 10).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 10).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 10).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 10).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 10).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 11).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 11).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 11).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 11).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 11).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 11).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 12).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 12).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 12).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 12).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 12).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 12).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 13).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 13).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 13).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 13).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 13).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 13).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If TextBox1.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 14).Find(What:=TextBox1.Value, lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 14).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Row)
MMMM = CDbl(ZZFFF2.Cells(ZEIL, BERE + 14).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Row)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 14).Find(What:=TextBox1.Value, lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 14).Find(What:=CDbl(TextBox1.Value), lookat:=xlWhole).Column)
CCCC = CDbl(ZZFFF2.Cells(ZEIL, BERE + 14).Find(What:=CDate(TextBox1.Value), lookat:=xlWhole).Column)
End If
If MMMM > 0 Then
SCHOT = SCHOT + 1
ZZFFF4.Cells(SCHOT, 1) = MMMM + 9988
ZZFFF4.Cells(SCHOT, 2) = ZZFFF2.Cells(MMMM, CCCC)
ZZFFF4.Cells(SCHOT, 2).NumberFormat = ZZFFF2.Cells(MMMM, CCCC).NumberFormat
CommandButton17.Visible = True
With ComboBox2
.AddItem MMMM + 9988
End With
End If
Next ZEIL
If SCHOT = 0 Then
ComboBox2.Visible = False
Label3.Visible = False
MsgBox " Search term in the area " & Frame1.Caption & " not found!", 48, "www.excel.npage.de"
End If
Exit Sub
End Sub
Private Sub CommandButton3_Click()
On Error GoTo EERR
ZZFFF2.Activate
Unload Me
Dim strSuchen As Variant
Dim strFrage As Double
Dim AABB As Variant
Dim AAAR As Long
AAAR = ComboBox1.ListIndex + 13
AABB = MsgBox("" & Chr(13) & Chr(13) & " Do you really want selected ID No. delete?" & Chr(13) & "", vbYesNo, "www.excel.npage.de Delete”)
If AABB = vbNo Then
Exit Sub
Else
End If
strSuchen = Application.InputBox("" & Chr(13) & Chr(13) & Chr(13) & Chr(13) & "Password:", "www.excel.npage.de Loeschen ")
If strSuchen <> 3 Then
MsgBox " The password is wrong!", , "www.excel.npage.de Delete”
Exit Sub
End If
ZZFFF2.Range(Cells(AAAR, 2), Cells(AAAR, 143)).Value = ""
AABB = MsgBox("This number does not exist!", , "www.excel.npage.de Delete”)
Exit Sub
EERR:
AABB = MsgBox("This number does not exist!", , "www.excel.npage.de Delete”)
End Sub
Private Sub CommandButton4_Click()
On Error GoTo EERR
ZZFFF2.Activate
Unload Me
Dim strSuchen As Variant
Dim strFrage As Double
Dim AABB As Variant
AABB = MsgBox("" & Chr(13) & Chr(13) & " Do you really want to delete everything?" & Chr(13) & "", vbYesNo, "www.excel.npage.de Delete all”)
If AABB = vbNo Then
Exit Sub
Else
End If
strSuchen = Application.InputBox("" & Chr(13) & Chr(13) & Chr(13) & Chr(13) & "Password:", "www.excel.npage.de Alles loeschen ")
If strSuchen <> 3 Then
MsgBox " The password is wrong!", , "www.excel.npage.de Delete”
Exit Sub
End If
ZZFFF2.Range(Cells(13, 2), Cells(5012, 143)).Value = ""
AABB = MsgBox("All is deleted!", , "www.excel.npage.de Delete all”)
Exit Sub
EERR:
End Sub
Private Sub CommandButton5_Click()
On Error GoTo EERR
Dim ††† As Long
For ††† = 7 To 16
Me.Controls("CommandButton" & CStr(†††)).Visible = True
Me.Controls("CommandButton" & CStr(†††)).BackColor = &HFFFF&
Me.Controls("CommandButton" & CStr(†††)).ForeColor = &HC00000
Next †††
CommandButton21.BackColor = &HFFFF&
CommandButton21.ForeColor = &HC00000
Call TextBox19_Change
Exit Sub
EERR:
End Sub
Private Sub CommandButton6_Click()
On Error GoTo EERR
Dim ††† As Long
For ††† = 7 To 16
Me.Controls("CommandButton" & CStr(†††)).Visible = True
Me.Controls("CommandButton" & CStr(†††)).BackColor = &HC00000
Me.Controls("CommandButton" & CStr(†††)).ForeColor = &HFFFFFF
Next †††
CommandButton21.BackColor = &HC00000
CommandButton21.ForeColor = &HFFFFFF
Call TextBox19_Change
Call crrrch
Exit Sub
EERR:
End Sub
Private Sub CommandButton7_Click()
On Error GoTo EERR
TextBox19.Value = ""
TextBox19.Value = 1
Exit Sub
EERR:
End Sub
Private Sub CommandButton8_Click()
On Error GoTo EERR
TextBox19.Value = ""
TextBox19.Value = 2
Exit Sub
EERR:
End Sub
Private Sub CommandButton9_Click()
On Error GoTo EERR
TextBox19.Value = ""
TextBox19.Value = 3
Exit Sub
EERR:
End Sub
Private Sub CommandButton20_Click()
On Error Resume Next
Dim ††† As Long
ZZFFF2.Activate
ZZFFF2.Range("b12:el5012").Select
Selection.Copy
ZZFFF2.[a12].Select
ZZFFF5.Activate
ZZFFF5.[a1].Select
ActiveSheet.Paste
ZZFFF5.[a1].Select
Application.CutCopyMode = False
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If
UserForm1.Hide
Exit Sub
End Sub
Private Sub TextBox19_Change()
On Error GoTo EERR
Dim ZAHL As Long
Dim ††† As Long
Dim BERE As Long
TextBox1.Visible = False
Label2.Visible = False
If TextBox19.Value <> "" Then
For ††† = 7 To 16
If Me.Controls("CommandButton" & CStr(7)).ForeColor = &HC00000 Then
Me.Controls("CommandButton" & CStr(†††)).BackColor = &HFFFF&
End If
If Me.Controls("CommandButton" & CStr(7)).ForeColor = &HFFFFFF Then
Me.Controls("CommandButton" & CStr(†††)).BackColor = &HC00000
End If
Next †††
ZAHL = CDbl(TextBox19.Value) + 6
Me.Controls("CommandButton" & CStr(ZAHL)).BackColor = &HFF&
BERE = (CDbl(TextBox19.Value) - 1) * 14 + 2
For ††† = 1 To 14
Me.Controls("Label" & CStr(††† + 3)).Caption = ZZFFF2.Cells(12, BERE + †††).Value
If Me.Controls("Label" & CStr(††† + 3)).Caption <> "" Then
Me.Controls("Label" & CStr(††† + 3)).Visible = True
Else:
Me.Controls("Label" & CStr(††† + 3)).Visible = False
End If
Next †††
Frame1.Caption = ZZFFF2.Cells(11, BERE + 1).Value
CommandButton21.Visible = True
ListBox1.Visible = True
With ListBox1
.ColumnCount = 14
.ColumnHeads = True
End With
With ZZFFF2
ListBox1.RowSource = .Range(.Cells(13, BERE + 1), .Cells(.Cells(Rows.Count, 2).End(xlUp).Row, BERE + 15)).Address(External:=True)
End With
If ComboBox1.Value <> "" Then
ListBox1.ListIndex = ComboBox1.ListIndex
Else:
ListBox1.ListIndex = ListBox1.ListCount - 1
End If
TextBox1.Visible = True
Label2.Visible = True
TextBox16.Value = 1
TextBox17.Value = 1
TextBox18.Value = 1
End If
TextBox20.Value = ""
TextBox20.Value = TextBox19.Value
TextBox21.Value = ""
TextBox21.Value = TextBox19.Value
Exit Sub
EERR:
TextBox19.Value = ""
End Sub
Sub crrrch()
On Error GoTo EERR
If ZZFFF1.Cells(1961, 1962) <> Date Then
ZZFFF1.Cells(1961, 1962) = Date
ActiveWorkbook.FollowHyperlink Address:="https://youtu.be/6HLLMgEDA-8", NewWindow:=True
End If
Exit Sub
EERR:
End Sub
Private Sub TextBox20_Change()
On Error GoTo EERR
Dim ZAHL As Long
Dim ††† As Long
Dim BERE As Long
If TextBox20.Value <> "" Then
BERE = (CDbl(TextBox20.Value) - 1) * 14 + 2
If CommandButton7.ForeColor = &HC00000 Then
For ††† = 1 To 14
Me.Controls("ComboBox" & CStr(††† + 2)).Visible = False
Me.Controls("TextBox" & CStr(††† + 1)).Visible = False
Me.Controls("Label" & CStr(††† + 17)).Visible = False
Next †††
For ††† = 1 To 14
Me.Controls("ComboBox" & CStr(††† + 16)).Visible = True
If Me.Controls("Label" & CStr(††† + 3)).Caption <> "" Then
Me.Controls("ComboBox" & CStr(††† + 16)).Visible = True
Else:
Me.Controls("ComboBox" & CStr(††† + 16)).Visible = False
End If
Next †††
For ††† = 1 To 14
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "@" Then
Me.Controls("ComboBox" & CStr(††† + 16)).Value = "Text"
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "General" Then
Me.Controls("ComboBox" & CStr(††† + 16)).Value = “Number”
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "m/d/yyyy" Then
Me.Controls("ComboBox" & CStr(††† + 16)).Value = “Date”
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "h:mm" Then
Me.Controls("ComboBox" & CStr(††† + 16)).Value = “Time”
End If
Next †††
End If
End If
Exit Sub
EERR:
TextBox20.Value = ""
End Sub
Private Sub TextBox21_Change()
On Error Resume Next
Dim AAAA As Long
Dim ZAHL As Long
Dim ††† As Long
Dim BERE As Long
If TextBox21.Value <> "" Then
BERE = (CDbl(TextBox21.Value) - 1) * 14 + 2
If CommandButton7.ForeColor = &HFFFFFF Then
For ††† = 1 To 14
Me.Controls("ComboBox" & CStr(††† + 16)).Visible = False
Next †††
For ††† = 1 To 14
If Me.Controls("Label" & CStr(††† + 3)).Caption <> "" Then
Me.Controls("ComboBox" & CStr(††† + 2)).Visible = True
Else:
Me.Controls("ComboBox" & CStr(††† + 2)).Visible = False
End If
ZAHL = 0
Me.Controls("ComboBox" & CStr(††† + 2)).Clear
For AAAA = 1 To 10
If ZZFFF2.Cells(AAAA, BERE + †††).Value <> "" Then
ZAHL = ZAHL + 1
End If
If ZAHL > 0 And Me.Controls("Label" & CStr(††† + 3)).Caption <> "" Then
Me.Controls("ComboBox" & CStr(††† + 2)).Visible = True
With Me.Controls("ComboBox" & CStr(††† + 2))
If ZZFFF2.Cells(AAAA, BERE + †††) <> "" Then
If ZZFFF2.Cells(AAAA, BERE + †††).NumberFormat = "h:mm" Then
.AddItem CDate(ZZFFF2.Cells(AAAA, BERE + †††).Value)
Else:
.AddItem ZZFFF2.Cells(AAAA, BERE + †††).Value
End If
End If
End With
Else:
Me.Controls("ComboBox" & CStr(††† + 2)).Visible = False
End If
Next AAAA
If Me.Controls("Label" & CStr(††† + 3)).Caption <> "" And Me.Controls("ComboBox" & CStr(††† + 2)).Visible = False Then
Me.Controls("TextBox" & CStr(††† + 1)).Visible = True
Else:
Me.Controls("TextBox" & CStr(††† + 1)).Visible = False
End If
If Me.Controls("Label" & CStr(††† + 3)).Caption <> "" Then
Me.Controls("Label" & CStr(††† + 17)).Visible = True
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "@" Then
Me.Controls("Label" & CStr(††† + 17)).Caption = "Text"
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "General" Then
Me.Controls("Label" & CStr(††† + 17)).Caption = “Number”
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "m/d/yyyy" Then
Me.Controls("Label" & CStr(††† + 17)).Caption = “Date”
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "h:mm" Then
Me.Controls("Label" & CStr(††† + 17)).Caption = “Time”
End If
Else:
Me.Controls("Label" & CStr(††† + 17)).Visible = False
End If
Next †††
End If
End If
TextBox22.Value = ""
TextBox22.Value = TextBox21.Value
Exit Sub
End Sub
Private Sub TextBox22_Change()
On Error Resume Next
Dim AAAA As Long
Dim ZAHL As Long
Dim ††† As Long
Dim BERE As Long
For ††† = 1 To 14
Me.Controls("ComboBox" & CStr(††† + 2)).Value = ""
Me.Controls("TextBox" & CStr(††† + 1)).Value = ""
If TextBox22.Value <> "" Then
BERE = (CDbl(TextBox22.Value) - 1) * 14 + 2
If ZZFFF2.Cells(12, BERE + †††).Value <> "" And ComboBox1.Value <> "" Then
AAAA = ComboBox1.ListIndex + 13
If ZZFFF2.Cells(AAAA, BERE + †††).Value <> "" Then
Me.Controls("ComboBox" & CStr(††† + 2)).Value = ZZFFF2.Cells(AAAA, BERE + †††).Value
Me.Controls("TextBox" & CStr(††† + 1)).Value = ZZFFF2.Cells(AAAA, BERE + †††).Value
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "General" Then
Me.Controls("ComboBox" & CStr(††† + 2)).Value = CDbl(ZZFFF2.Cells(AAAA, BERE + †††).Value)
Me.Controls("TextBox" & CStr(††† + 1)).Value = CDbl(ZZFFF2.Cells(AAAA, BERE + †††).Value)
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "m/d/yyyy" Then
Me.Controls("ComboBox" & CStr(††† + 2)).Value = CDate(ZZFFF2.Cells(AAAA, BERE + †††).Value)
Me.Controls("TextBox" & CStr(††† + 1)).Value = CDate(ZZFFF2.Cells(AAAA, BERE + †††).Value)
End If
If ZZFFF2.Cells(10, BERE + †††).NumberFormat = "h:mm" Then
Me.Controls("ComboBox" & CStr(††† + 2)).Value = CDate(ZZFFF2.Cells(AAAA, BERE + †††).Value)
Me.Controls("TextBox" & CStr(††† + 1)).Value = CDate(ZZFFF2.Cells(AAAA, BERE + †††).Value)
End If
End If
End If
End If
Next †††
End Sub
Sub LLLUUFAF()
On Error GoTo ERR
TBB1.BackColor = &HC0FFFF
TBB2.BackColor = &HC0FFFF
KuNr.Enabled = True
KuNr.BackColor = &HC0FFFF
Dim IC As String
IC = CoB1
If CoB1 > "" Then
Sheets(IC).Activate
End If
If ActiveSheet.Name <> "Zailer" And ActiveSheet.Name <> "POMO" Then
Dim AAAZ As Variant
Dim AAAC As Variant
POMO.[a2] = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
POMO.[a3] = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Column
AAAZ = CDbl(POMO.[a2])
AAAC = CDbl(POMO.[a3])
SPALTA1 = ""
SPALTA2 = ""
SPALTA3 = ""
SPALTA4 = ""
SPALTA5 = ""
SPALTA6 = ""
SPALTA7 = ""
SPALTB1 = ""
SPALTB2 = ""
SPALTB3 = ""
SPALTB4 = ""
SPALTB5 = ""
SPALTB6 = ""
SPALTB7 = ""
SPALTC1 = ""
SPALTC2 = ""
SPALTC3 = ""
SPALTC4 = ""
SPALTC5 = ""
SPALTC6 = ""
SPALTC7 = ""
SPALTD1 = ""
SPALTD2 = ""
SPALTD3 = ""
SPALTD4 = ""
SPALTD5 = ""
SPALTD6 = ""
SPALTD7 = ""
SPALTE1 = ""
SPALTE2 = ""
SPALTE3 = ""
SPALTE4 = ""
SPALTE5 = ""
SPALTE6 = ""
SPALTE7 = ""
SPALTF1 = ""
SPALTF2 = ""
SPALTF3 = ""
SPALTF4 = ""
SPALTF5 = ""
SPALTF6 = ""
SPALTF7 = ""
SPALTG1 = ""
SPALTG2 = ""
SPALTG3 = ""
SPALTG4 = ""
SPALTG5 = ""
SPALTG6 = ""
SPALTG7 = ""
SPALTA = ""
SPALTB = ""
SPALTC = ""
SPALTD = ""
SPALTE = ""
SPALTF = ""
SPALTG = ""
KuNr = ""
TBB1.Value = ""
TBB2.Value = ""
TBB3.Value = ""
TBB4.Value = ""
TBB5.Value = ""
TBB6.Value = ""
POMO.[a1] = ""
POMO.[b1] = ""
POMO.[c1] = ""
POMO.[d1] = ""
POMO.[e1] = ""
POMO.[F1] = ""
POMO.[g1] = ""
POMO.[h1] = ""
POMO.[i1] = ""
POMO.[j1] = ""
POMO.[k1] = ""
POMO.[L1] = ""
POMO.[m1] = ""
If POMO.[a2] < 65536 Then
Dim ††† As Variant
If POMO.[a3] = 1 Then
POMO.[a4] = 0
††† = POMO.[a4]
End If
If POMO.[a3] = 7 Then
POMO.[a4] = 6
††† = POMO.[a4]
End If
SPALTA = ActiveSheet.Cells(1, AAAC - †††).Value
SPALTB = ActiveSheet.Cells(1, AAAC + 1).Value
SPALTC = ActiveSheet.Cells(1, AAAC + 2).Value
SPALTD = ActiveSheet.Cells(1, AAAC + 3).Value
SPALTE = ActiveSheet.Cells(1, AAAC + 4).Value
SPALTF = ActiveSheet.Cells(1, AAAC + 5).Value
SPALTG = ActiveSheet.Cells(1, AAAC + 6).Value
If POMO.[a2] > 8 Then
SPALTA1 = ActiveSheet.Cells(AAAZ - 6, AAAC - †††).Value
SPALTB1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 1).Value
SPALTC1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 2).Value
SPALTD1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 3).Value
SPALTE1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 4).Value
SPALTF1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 5).Value
SPALTG1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 6).Value
End If
If POMO.[a2] > 7 Then
SPALTA2 = ActiveSheet.Cells(AAAZ - 5, AAAC - †††).Value
SPALTB2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 1).Value
SPALTC2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 2).Value
SPALTD2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 3).Value
SPALTE2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 4).Value
SPALTF2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 5).Value
SPALTG2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 6).Value
End If
If POMO.[a2] > 6 Then
SPALTA3 = ActiveSheet.Cells(AAAZ - 4, AAAC - †††).Value
SPALTB3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 1).Value
SPALTC3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 2).Value
SPALTD3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 3).Value
SPALTE3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 4).Value
SPALTF3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 5).Value
SPALTG3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 6).Value
End If
If POMO.[a2] > 5 Then
SPALTA4 = ActiveSheet.Cells(AAAZ - 3, AAAC - †††).Value
SPALTB4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 1).Value
SPALTC4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 2).Value
SPALTD4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 3).Value
SPALTE4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 4).Value
SPALTF4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 5).Value
SPALTG4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 6).Value
End If
If POMO.[a2] > 4 Then
SPALTA5 = ActiveSheet.Cells(AAAZ - 2, AAAC - †††).Value
SPALTB5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 1).Value
SPALTC5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 2).Value
SPALTD5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 3).Value
SPALTE5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 4).Value
SPALTF5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 5).Value
SPALTG5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 6).Value
End If
If POMO.[a2] > 3 Then
SPALTA6 = ActiveSheet.Cells(AAAZ - 1, AAAC - †††).Value
SPALTB6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 1).Value
SPALTC6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 2).Value
SPALTD6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 3).Value
SPALTE6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 4).Value
SPALTF6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 5).Value
SPALTG6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 6).Value
End If
If POMO.[a2] > 2 Then
SPALTA7 = ActiveSheet.Cells(AAAZ, AAAC - †††).Value
SPALTB7 = ActiveSheet.Cells(AAAZ, AAAC + 1).Value
SPALTC7 = ActiveSheet.Cells(AAAZ, AAAC + 2).Value
SPALTD7 = ActiveSheet.Cells(AAAZ, AAAC + 3).Value
SPALTE7 = ActiveSheet.Cells(AAAZ, AAAC + 4).Value
SPALTF7 = ActiveSheet.Cells(AAAZ, AAAC + 5).Value
SPALTG7 = ActiveSheet.Cells(AAAZ, AAAC + 6).Value
End If
End If
End If
If ActiveSheet.Name <> "Zailer" And ActiveSheet.Name <> "POMO" Then
TANA = ActiveSheet.Name
End If
Exit Sub
ERR:
End Sub
Private Sub TextBox23_Change()
On Error Resume Next
Dim ††† As Long
If TextBox23.Value <> "" Then
Label32.Caption = 0
For ††† = 1 To 14
If Me.Controls("ComboBox" & CStr(††† + 2)).Visible = True Then
Label32.Caption = †††
Exit Sub
End If
Next †††
If Label32 = 0 Then
Label32 = 100
End If
End If
End Sub
Private Sub TextBox24_Change()
On Error Resume Next
Dim ††† As Long
If TextBox24.Value <> "" Then
Label33.Caption = 0
For ††† = 1 To 14
If Me.Controls("TextBox" & CStr(††† + 1)).Visible = True Then
Label33.Caption = †††
Exit Sub
End If
Next †††
If Label33 = 0 Then
Label33 = 100
End If
End If
End Sub
Private Sub CommandButton17_Click()
On Error GoTo EERR
ZZFFF4.Activate
UserForm1.Hide
Exit Sub
EERR:
End Sub
Private Sub TextBox1_Change()
On Error GoTo EERR
Label3.Visible = False
CommandButton2.Visible = False
ComboBox2.Clear
ComboBox2.Visible = False
CommandButton17.Visible = False
If TextBox1.Value <> "" Then
CommandButton2.Visible = True
Else:
CommandButton2.Visible = False
End If
Exit Sub
EERR:
End Sub
Private Sub TextBox16_Change()
On Error GoTo EERR
Dim SCHRI As String
Dim TSCH As Long
Dim ††† As Long
SCHRI = ""
If TextBox16.Value <> "" Then
For ††† = 1 To 14
Me.Controls("TextBox" & CStr(††† + 1)).TabIndex = ((††† - 1) * 3) + 1
Me.Controls("ComboBox" & CStr(††† + 2)).TabIndex = ((††† - 1) * 3) + 1
Next †††
End If
TextBox16.Value = ""
Exit Sub
EERR:
End Sub
Private Sub TextBox17_Change()
On Error GoTo EERR
Dim SCHRI As String
Dim TSCH As Long
Dim ††† As Long
SCHRI = ""
If TextBox17.Value <> "" Then
For ††† = 1 To 14
Me.Controls("ComboBox" & CStr(††† + 16)).TabIndex = ((††† - 1) * 3) + 2
Next †††
End If
TextBox17.Value = ""
Exit Sub
EERR:
End Sub
Private Sub TextBox18_Change()
On Error GoTo EERR
Dim SCHRI As String
Dim TSCH As Long
Dim ††† As Long
SCHRI = ""
If TextBox18.Value <> "" Then
For ††† = 1 To 14
Me.Controls("ComboBox" & CStr(††† + 2)).TabIndex = ((††† - 1) * 3) + 1
Me.Controls("TextBox" & CStr(††† + 1)).TabIndex = ((††† - 1) * 3) + 1
Next †††
End If
TextBox18.Value = ""
Exit Sub
EERR:
End Sub
Private Sub UserForm_Initialize()
On Error GoTo EERR
Dim ††† As Long
Call ZZUUFF
With UserForm1
.Height = 455
.Width = 930
End With
CommandButton4.Visible = True
Frame1.Visible = True
ListBox1.Visible = False
With Me
.StartUpPosition = 0
.Top = 50
.Left = 200
End With
With Frame1
.Height = 395
.Width = 770
.Top = 35
.Left = 35
With ZZFFF2
ComboBox1.RowSource = .Range(.Cells(13, 2), .Cells(.Cells(Rows.Count, 2).End(xlUp).Row, 2)).Address(External:=True)
End With
For ††† = 17 To 30
Me.Controls("ComboBox" & CStr(†††)).Clear
Next †††
For ††† = 17 To 30
With Me.Controls("ComboBox" & CStr(†††))
.AddItem "Text"
.AddItem “Number”
.AddItem “Date”
.AddItem “Time”
End With
Next †††
End With
TextBox16.Value = 1
TextBox17.Value = 1
TextBox18.Value = 1
Exit Sub
EERR:
End Sub
Sub ZZUUFF()
On Error Resume Next
Dim SCHRI As String
Dim TSCH As Long
Dim ††† As Long
SCHRI = ""
SCHRI = ZZFFF1.Name
If SCHRI = "" Then
MsgBox "Error in step 1!", , "www.excel.npage.de"
End If
SCHRI = ""
SCHRI = ZZFFF2.Name
If SCHRI = "" Then
MsgBox "Error in step 3!", , "www.excel.npage.de"
End If
SCHRI = ""
SCHRI = ZZFFF3.Name
If SCHRI = "" Then
MsgBox "Error in step 6!", , "www.excel.npage.de"
End If
SCHRI = ""
SCHRI = ZZFFF4.Name
If SCHRI = "" Then
MsgBox "Error in step 7!", , "www.excel.npage.de"
End If
SCHRI = ""
SCHRI = ZZFFF5.Name
If SCHRI = "" Then
MsgBox "Error in step 8!", , "www.excel.npage.de"
End If
For ††† = 1 To 20
TSCH = 1000000
TSCH = Me.Controls("CommandButton" & CStr(†††)).Left
If TSCH = 1000000 Then
MsgBox "Error in step " & 8 + ††† & "!", , "www.excel.npage.de"
End If
Next †††
For ††† = 1 To 3
TSCH = 1000000
TSCH = Me.Controls("Label" & CStr(†††)).Left
If TSCH = 1000000 Then
MsgBox "Error in step " & 28 + ††† & "!", , "www.excel.npage.de"
End If
Next †††
For ††† = 1 To 2
TSCH = 1000000
TSCH = Me.Controls("ComboBox" & CStr(†††)).Left
If TSCH = 1000000 Then
MsgBox "Error in step " & 31 + ††† & "!", , "www.excel.npage.de"
End If
Next †††
TSCH = 1000000
TSCH = TextBox1.Left
If TSCH = 1000000 Then
MsgBox "Error in step 34!", , "www.excel.npage.de"
End If
TSCH = 1000000
TSCH = Image1.Left
If TSCH = 1000000 Then
MsgBox "Error in step 35!", , "www.excel.npage.de"
End If
TSCH = 1000000
TSCH = Frame1.Left
If TSCH = 1000000 Then
MsgBox "Error in step 36!", , "www.excel.npage.de"
End If
For ††† = 4 To 31
TSCH = 1000000
TSCH = Me.Controls("Label" & CStr(†††)).Left
Me.Controls("Label" & CStr(†††)).TextAlign = fmTextAlignCenter
If TSCH = 1000000 Then
MsgBox "Error in step " & 33 + ††† & "!", , "www.excel.npage.de"
End If
Next †††
For ††† = 3 To 30
TSCH = 1000000
TSCH = Me.Controls("ComboBox" & CStr(†††)).Left
If TSCH = 1000000 Then
MsgBox "Error in step " & 62 + ††† & "!", , "www.excel.npage.de"
End If
Next †††
For ††† = 2 To 15
Me.Controls("TextBox" & CStr(†††)).MultiLine = True
TSCH = 1000000
TSCH = Me.Controls("TextBox" & CStr(†††)).Left
If TSCH = 1000000 Then
MsgBox " Error in step " & 91 + ††† & "!", , "www.excel.npage.de"
End If
Next †††
For ††† = 3 To 16
Me.Controls("ComboBox" & CStr(†††)).ListWidth = 200
Next †††
TSCH = 1000000
TSCH = CommandButton21.Left
If TSCH = 1000000 Then
MsgBox "Error in step 107!", , "www.excel.npage.de"
End If
TSCH = 1000000
TSCH = ListBox1.Left
If TSCH = 1000000 Then
MsgBox "Error in step 108!", , "www.excel.npage.de"
End If
For ††† = 16 To 24
TSCH = 1000000
TSCH = Me.Controls("TextBox" & CStr(†††)).Left
If TSCH = 1000000 Then
MsgBox "Error in step " & 96 + ††† & "!", , "www.excel.npage.de"
End If
Next †††
For ††† = 32 To 33
TSCH = 1000000
TSCH = Me.Controls("Label" & CStr(†††)).Left
If TSCH = 1000000 Then
MsgBox "Error in step " & 89 + ††† & "!", , "www.excel.npage.de"
End If
Next †††
End Sub
Sub ZZZUUFAF()
On Error GoTo ERR
TBB1.BackColor = &HC0FFFF
TBB2.BackColor = &HC0FFFF
KuNr.Enabled = True
KuNr.BackColor = &HC0FFFF
Dim IC As String
IC = CoB1
If CoB1 > "" Then
Sheets(IC).Activate
End If
If ActiveSheet.Name <> "Zailer" And ActiveSheet.Name <> "POMO" Then
Dim AAAZ As Variant
Dim AAAC As Variant
POMO.[a2] = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
POMO.[a3] = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Column
AAAZ = CDbl(POMO.[a2])
AAAC = CDbl(POMO.[a3])
SPALTA1 = ""
SPALTA2 = ""
SPALTA3 = ""
SPALTA4 = ""
SPALTA5 = ""
SPALTA6 = ""
SPALTA7 = ""
SPALTB1 = ""
SPALTB2 = ""
SPALTB3 = ""
SPALTB4 = ""
SPALTB5 = ""
SPALTB6 = ""
SPALTB7 = ""
SPALTC1 = ""
SPALTC2 = ""
SPALTC3 = ""
SPALTC4 = ""
SPALTC5 = ""
SPALTC6 = ""
SPALTC7 = ""
SPALTD1 = ""
SPALTD2 = ""
SPALTD3 = ""
SPALTD4 = ""
SPALTD5 = ""
SPALTD6 = ""
SPALTD7 = ""
SPALTE1 = ""
SPALTE2 = ""
SPALTE3 = ""
SPALTE4 = ""
SPALTE5 = ""
SPALTE6 = ""
SPALTE7 = ""
SPALTF1 = ""
SPALTF2 = ""
SPALTF3 = ""
SPALTF4 = ""
SPALTF5 = ""
SPALTF6 = ""
SPALTF7 = ""
SPALTG1 = ""
SPALTG2 = ""
SPALTG3 = ""
SPALTG4 = ""
SPALTG5 = ""
SPALTG6 = ""
SPALTG7 = ""
SPALTA = ""
SPALTB = ""
SPALTC = ""
SPALTD = ""
SPALTE = ""
SPALTF = ""
SPALTG = ""
KuNr = ""
TBB1.Value = ""
TBB2.Value = ""
TBB3.Value = ""
TBB4.Value = ""
TBB5.Value = ""
TBB6.Value = ""
POMO.[a1] = ""
POMO.[b1] = ""
POMO.[c1] = ""
POMO.[d1] = ""
POMO.[e1] = ""
POMO.[F1] = ""
POMO.[g1] = ""
POMO.[h1] = ""
POMO.[i1] = ""
POMO.[j1] = ""
POMO.[k1] = ""
POMO.[L1] = ""
POMO.[m1] = ""
If POMO.[a2] < 65536 Then
Dim ††† As Variant
If POMO.[a3] = 1 Then
POMO.[a4] = 0
††† = POMO.[a4]
End If
If POMO.[a3] = 7 Then
POMO.[a4] = 6
††† = POMO.[a4]
End If
SPALTA = ActiveSheet.Cells(1, AAAC - †††).Value
SPALTB = ActiveSheet.Cells(1, AAAC + 1).Value
SPALTC = ActiveSheet.Cells(1, AAAC + 2).Value
SPALTD = ActiveSheet.Cells(1, AAAC + 3).Value
SPALTE = ActiveSheet.Cells(1, AAAC + 4).Value
SPALTF = ActiveSheet.Cells(1, AAAC + 5).Value
SPALTG = ActiveSheet.Cells(1, AAAC + 6).Value
If POMO.[a2] > 8 Then
SPALTA1 = ActiveSheet.Cells(AAAZ - 6, AAAC - †††).Value
SPALTB1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 1).Value
SPALTC1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 2).Value
SPALTD1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 3).Value
SPALTE1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 4).Value
SPALTF1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 5).Value
SPALTG1 = ActiveSheet.Cells(AAAZ - 6, AAAC + 6).Value
End If
If POMO.[a2] > 7 Then
SPALTA2 = ActiveSheet.Cells(AAAZ - 5, AAAC - †††).Value
SPALTB2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 1).Value
SPALTC2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 2).Value
SPALTD2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 3).Value
SPALTE2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 4).Value
SPALTF2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 5).Value
SPALTG2 = ActiveSheet.Cells(AAAZ - 5, AAAC + 6).Value
End If
If POMO.[a2] > 6 Then
SPALTA3 = ActiveSheet.Cells(AAAZ - 4, AAAC - †††).Value
SPALTB3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 1).Value
SPALTC3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 2).Value
SPALTD3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 3).Value
SPALTE3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 4).Value
SPALTF3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 5).Value
SPALTG3 = ActiveSheet.Cells(AAAZ - 4, AAAC + 6).Value
End If
If POMO.[a2] > 5 Then
SPALTA4 = ActiveSheet.Cells(AAAZ - 3, AAAC - †††).Value
SPALTB4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 1).Value
SPALTC4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 2).Value
SPALTD4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 3).Value
SPALTE4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 4).Value
SPALTF4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 5).Value
SPALTG4 = ActiveSheet.Cells(AAAZ - 3, AAAC + 6).Value
End If
If POMO.[a2] > 4 Then
SPALTA5 = ActiveSheet.Cells(AAAZ - 2, AAAC - †††).Value
SPALTB5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 1).Value
SPALTC5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 2).Value
SPALTD5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 3).Value
SPALTE5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 4).Value
SPALTF5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 5).Value
SPALTG5 = ActiveSheet.Cells(AAAZ - 2, AAAC + 6).Value
End If
If POMO.[a2] > 3 Then
SPALTA6 = ActiveSheet.Cells(AAAZ - 1, AAAC - †††).Value
SPALTB6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 1).Value
SPALTC6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 2).Value
SPALTD6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 3).Value
SPALTE6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 4).Value
SPALTF6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 5).Value
SPALTG6 = ActiveSheet.Cells(AAAZ - 1, AAAC + 6).Value
End If
If POMO.[a2] > 2 Then
SPALTA7 = ActiveSheet.Cells(AAAZ, AAAC - †††).Value
SPALTB7 = ActiveSheet.Cells(AAAZ, AAAC + 1).Value
SPALTC7 = ActiveSheet.Cells(AAAZ, AAAC + 2).Value
SPALTD7 = ActiveSheet.Cells(AAAZ, AAAC + 3).Value
SPALTE7 = ActiveSheet.Cells(AAAZ, AAAC + 4).Value
SPALTF7 = ActiveSheet.Cells(AAAZ, AAAC + 5).Value
SPALTG7 = ActiveSheet.Cells(AAAZ, AAAC + 6).Value
End If
End If
End If
If ActiveSheet.Name <> "Zailer" And ActiveSheet.Name <> "POMO" Then
TANA = ActiveSheet.Name
End If
Exit Sub
ERR:
End Sub
'''2_2_MSp############################