Thema Datum  Von Nutzer Rating
Antwort
Rot Eingabemaske auch zum bearbeiten
07.02.2024 14:01:57 Marcel H.
NotSolved
07.02.2024 14:44:00 Gast55634
NotSolved
07.02.2024 15:32:22 Gast53243
NotSolved
07.02.2024 15:58:12 Mase
NotSolved
07.02.2024 18:00:46 Flatulenz
NotSolved
07.02.2024 19:33:17 ralf_b
NotSolved
07.02.2024 19:37:50 Flatulenz
NotSolved
07.02.2024 19:46:17 ralf_b
NotSolved
08.02.2024 04:58:20 Gast01233
NotSolved

Ansicht des Beitrags:
Von:
Marcel H.
Datum:
07.02.2024 14:01:57
Views:
565
Rating: Antwort:
  Ja
Thema:
Eingabemaske auch zum bearbeiten

Guten Tag,

Ich bin grade dabei eine Eingabemaske zu erstellen um bei neuem Personal schnellstmöglich alle Personaldaten einpflegen zu können....

Wenn ich jetzt eine Person über die Maske angelegt habe, möchte ich die eingabemaske aber auch gerne nutzen können um den Datensatz zu bearbeiten...

Gerne eine Suchfunktion oder einen ändern Buttom über dem namen.... ich habe jedoch keine idee wie ich das umsetzen kann...

 

kann eventuell jemand helfen?



Private Sub CheckBox13_Click()

End Sub

Private Sub CheckBox2_Click()

End Sub

Private Sub CheckBox26_Click()

End Sub

Private Sub CheckBox27_Click()

End Sub

Private Sub CheckBox3_Click()

End Sub

Private Sub CheckBox32_Click()

End Sub

Private Sub CheckBox37_Click()

End Sub

Private Sub CheckBox4_Click()

End Sub

Private Sub CheckBox47_Click()

End Sub

Private Sub CheckBox53_Click()

End Sub

Private Sub CheckBox58_Click()

End Sub

Private Sub CheckBox8_Click()

End Sub

Private Sub Label19_Click()

End Sub

Private Sub Label21_Click()

End Sub

Private Sub Label22_Click()

End Sub

Private Sub Label23_Click()

End Sub

Private Sub Label24_Click()

End Sub

Private Sub Label26_Click()

End Sub

Private Sub Label31_Click()

End Sub

Private Sub Label39_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub Button_Chancel_Click()

'Eingabefenster schließen
Unload PersonenEingabe

End Sub










Private Sub Button_Take_Click()

'Leer Prüfung
        
If Nachname.Value = "" Or Dienstgrad.Value = "" Or Zug.Value = "" Then
        MsgBox "Nachname, Dienstgrad und Zug sind Pflichtfelder!"
        Exit Sub
    
End If



'Neue Spalte formatiert hinzufügen

    Sheets("Übersicht Kompanie").Select
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.ColumnWidth = 15
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("D3").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

'Eingabe Übernehmen

Dim las As Integer

last = ActiveSheet.Cells(1, Columns.Count).End(xlToRight).Column + 1

    ActiveSheet.Cells(2, 4).Value = Nachname.Value 'x
    ActiveSheet.Cells(3, 4).Value = Dienstgrad.Value 'x
    ActiveSheet.Cells(4, 4).Value = Zug.Value 'x
    'Dienstfahrerlaubnis
    ActiveSheet.Cells(5, 4).Value = TextBox1.Value 'x
    ActiveSheet.Cells(6, 4).Value = TextBox2.Value 'x
    ActiveSheet.Cells(7, 4).Value = TextBox3.Value 'x
    ActiveSheet.Cells(8, 4).Value = TextBox4.Value 'x
    ActiveSheet.Cells(9, 4).Value = TextBox5.Value 'x
    ActiveSheet.Cells(10, 4).Value = TextBox6.Value 'x
    ActiveSheet.Cells(11, 4).Value = TextBox7.Value 'x
    ActiveSheet.Cells(12, 4).Value = TextBox9.Value 'x
    'FSP
    ActiveSheet.Cells(13, 4).Value = TextBox10.Value
    ActiveSheet.Cells(14, 4).Value = TextBox11.Value
    'Lasi
    ActiveSheet.Cells(15, 4).Value = TextBox12.Value
    ActiveSheet.Cells(16, 4).Value = TextBox13.Value
    'Impfen
    ActiveSheet.Cells(17, 4).Value = TextBox16.Value 'x
    ActiveSheet.Cells(18, 4).Value = TextBox19.Value 'x
    ActiveSheet.Cells(19, 4).Value = TextBox20.Value 'x
    ActiveSheet.Cells(20, 4).Value = TextBox21.Value 'x
    ActiveSheet.Cells(21, 4).Value = TextBox22.Value 'x
    ActiveSheet.Cells(22, 4).Value = TextBox63.Value 'x
    ActiveSheet.Cells(23, 4).Value = TextBox66.Value 'x
    ActiveSheet.Cells(24, 4).Value = TextBox65.Value 'x
    ActiveSheet.Cells(25, 4).Value = TextBox64.Value 'x
    ActiveSheet.Cells(26, 4).Value = TextBox67.Value 'x
    ActiveSheet.Cells(27, 4).Value = TextBox68.Value 'x
    ActiveSheet.Cells(28, 4).Value = TextBox69.Value 'x
    ActiveSheet.Cells(29, 4).Value = TextBox70.Value 'x
    'KEO
    ActiveSheet.Cells(30, 4).Value = TextBox14.Value 'x
    ActiveSheet.Cells(31, 4).Value = TextBox23.Value 'x
    ActiveSheet.Cells(32, 4).Value = TextBox24.Value 'x
    ActiveSheet.Cells(33, 4).Value = TextBox25.Value 'x
    ActiveSheet.Cells(34, 4).Value = TextBox26.Value 'x
    'Pers1
    ActiveSheet.Cells(157, 4).Value = TextBox27.Value 'x
    ActiveSheet.Cells(158, 4).Value = TextBox28.Value 'x
    ActiveSheet.Cells(159, 4).Value = TextBox31.Value 'x
    'MBF
    ActiveSheet.Cells(35, 4).Value = TextBox49.Value 'x
    ActiveSheet.Cells(36, 4).Value = TextBox50.Value 'x
    ActiveSheet.Cells(37, 4).Value = TextBox51.Value 'x
    ActiveSheet.Cells(38, 4).Value = TextBox52.Value 'x
    ActiveSheet.Cells(39, 4).Value = TextBox53.Value 'x
    ActiveSheet.Cells(40, 4).Value = TextBox54.Value 'x
    ActiveSheet.Cells(41, 4).Value = TextBox55.Value 'x
    'S2
    ActiveSheet.Cells(42, 4).Value = TextBox29.Value 'x
    ActiveSheet.Cells(43, 4).Value = TextBox30.Value 'x
    'Pers
    ActiveSheet.Cells(44, 4).Value = TextBox33.Value 'x
    ActiveSheet.Cells(45, 4).Value = TextBox34.Value 'x
    ActiveSheet.Cells(46, 4).Value = TextBox35.Value 'x
    ActiveSheet.Cells(47, 4).Value = TextBox36.Value 'x
    ActiveSheet.Cells(48, 4).Value = TextBox37.Value 'x
    ActiveSheet.Cells(49, 4).Value = TextBox38.Value 'x
    ActiveSheet.Cells(50, 4).Value = TextBox39.Value 'x
    ActiveSheet.Cells(51, 4).Value = TextBox40.Value 'x
    ActiveSheet.Cells(52, 4).Value = TextBox41.Value 'x
    ActiveSheet.Cells(53, 4).Value = TextBox42.Value 'x
    ActiveSheet.Cells(54, 4).Value = TextBox43.Value 'x
    ActiveSheet.Cells(55, 4).Value = TextBox44.Value 'x
    ActiveSheet.Cells(56, 4).Value = TextBox45.Value 'x
    ActiveSheet.Cells(57, 4).Value = TextBox46.Value 'x
    ActiveSheet.Cells(58, 4).Value = TextBox47.Value 'x
    ActiveSheet.Cells(59, 4).Value = TextBox48.Value 'x
    'G36 Checkbox
    'GP8 Checkbox
    'KTF
    ActiveSheet.Cells(82, 4).Value = TextBox56.Value 'x
    ActiveSheet.Cells(83, 4).Value = TextBox57.Value 'x
    ActiveSheet.Cells(84, 4).Value = TextBox58.Value 'x
    ActiveSheet.Cells(85, 4).Value = TextBox59.Value 'x
    ActiveSheet.Cells(86, 4).Value = TextBox60.Value 'x
    ActiveSheet.Cells(87, 4).Value = TextBox61.Value 'x
    ActiveSheet.Cells(88, 4).Value = TextBox62.Value 'x
    'ABC Checkbox
    'ABC Checkbox
    ActiveSheet.Cells(89, 4).Value = TextBox61.Value 'x
    ActiveSheet.Cells(90, 4).Value = TextBox62.Value 'x

    
'Checkbox abfragen
'G36

    If CheckBox1.Value = True Then
    ActiveSheet.Cells(60, 4).Value = "X"
    End If
    
    If CheckBox2.Value = True Then
    ActiveSheet.Cells(61, 4).Value = "X"
    End If
    
    If CheckBox3.Value = True Then
    ActiveSheet.Cells(62, 4).Value = "X"
    End If
    
    If CheckBox4.Value = True Then
    ActiveSheet.Cells(63, 4).Value = "X"
    End If
    
    If CheckBox5.Value = True Then
    ActiveSheet.Cells(64, 4).Value = "X"
    End If
    
    If CheckBox6.Value = True Then
    ActiveSheet.Cells(65, 4).Value = "X"
    End If
    
    If CheckBox7.Value = True Then
    ActiveSheet.Cells(66, 4).Value = "X"
    End If
    
    If CheckBox8.Value = True Then
    ActiveSheet.Cells(67, 4).Value = "X"
    End If
    
    If CheckBox9.Value = True Then
    ActiveSheet.Cells(68, 4).Value = "X"
    End If
    
    If CheckBox10.Value = True Then
    ActiveSheet.Cells(69, 4).Value = "X"
    End If
    
        If CheckBox11.Value = True Then
    ActiveSheet.Cells(70, 4).Value = "X"
    End If
    
        If CheckBox12.Value = True Then
    ActiveSheet.Cells(71, 4).Value = "X"
    End If
    
        If CheckBox13.Value = True Then
    ActiveSheet.Cells(72, 4).Value = "X"
    End If
    
    'P8
    
        If CheckBox14.Value = True Then
    ActiveSheet.Cells(73, 4).Value = "X"
    End If
        
        If CheckBox15.Value = True Then
    ActiveSheet.Cells(74, 4).Value = "X"
    End If
        
        If CheckBox16.Value = True Then
    ActiveSheet.Cells(75, 4).Value = "X"
    End If
        
        If CheckBox19.Value = True Then
    ActiveSheet.Cells(76, 4).Value = "X"
    End If
        
        If CheckBox20.Value = True Then
    ActiveSheet.Cells(77, 4).Value = "X"
    End If
        
        If CheckBox21.Value = True Then
    ActiveSheet.Cells(78, 4).Value = "X"
    End If
        
        If CheckBox23.Value = True Then
    ActiveSheet.Cells(79, 4).Value = "X"
    End If
        
        If CheckBox24.Value = True Then
    ActiveSheet.Cells(80, 4).Value = "X"
    End If
        
        If CheckBox25.Value = True Then
    ActiveSheet.Cells(81, 4).Value = "X"
    End If
    
    'ABC
            
        If CheckBox27.Value = True Then
    ActiveSheet.Cells(89, 4).Value = "X"
    End If
           
        If CheckBox26.Value = True Then
    ActiveSheet.Cells(90, 4).Value = "X"
    End If
    
    'Einweisungen und Überprüfungen
               
        If CheckBox28.Value = True Then
    ActiveSheet.Cells(93, 4).Value = "X" 'X
    End If
               
        If CheckBox29.Value = True Then
    ActiveSheet.Cells(94, 4).Value = "X" 'X
    End If
               
        If CheckBox30.Value = True Then
    ActiveSheet.Cells(95, 4).Value = "X" 'X
    End If
                  
        If CheckBox31.Value = True Then
    ActiveSheet.Cells(96, 4).Value = "X" 'X
    End If
                   
        If CheckBox32.Value = True Then
    ActiveSheet.Cells(97, 4).Value = "X" 'X
    End If
                   
        If CheckBox33.Value = True Then
    ActiveSheet.Cells(98, 4).Value = "X" 'X
    End If
                   
        If CheckBox34.Value = True Then 'X
    ActiveSheet.Cells(99, 4).Value = "X"
    End If
                   
        If CheckBox35.Value = True Then 'X
    ActiveSheet.Cells(100, 4).Value = "X"
    End If
                   
        If CheckBox36.Value = True Then 'X
    ActiveSheet.Cells(101, 4).Value = "X"
    End If
                       
        If CheckBox37.Value = True Then 'X
    ActiveSheet.Cells(102, 4).Value = "X"
    End If
                       
        If CheckBox39.Value = True Then 'X
    ActiveSheet.Cells(103, 4).Value = "X"
    End If
                       
        If CheckBox40.Value = True Then 'X
    ActiveSheet.Cells(104, 4).Value = "X"
    End If
    
        If CheckBox41.Value = True Then 'X
    ActiveSheet.Cells(105, 4).Value = "X"
    End If
                  
        If CheckBox42.Value = True Then 'X
    ActiveSheet.Cells(106, 4).Value = "X"
    End If
                   
        If CheckBox43.Value = True Then 'X
    ActiveSheet.Cells(107, 4).Value = "X"
    End If
                   
        If CheckBox44.Value = True Then 'X
    ActiveSheet.Cells(108, 4).Value = "X"
    End If
                   
        If CheckBox45.Value = True Then 'X
    ActiveSheet.Cells(109, 4).Value = "X"
    End If
                   
        If CheckBox46.Value = True Then 'X
    ActiveSheet.Cells(110, 4).Value = "X"
    End If
                   
        If CheckBox47.Value = True Then 'X
    ActiveSheet.Cells(111, 4).Value = "X"
    End If
                       
        If CheckBox38.Value = True Then 'X
    ActiveSheet.Cells(112, 4).Value = "X"
    End If
                       
        If CheckBox70.Value = True Then 'X
    ActiveSheet.Cells(113, 4).Value = "X"
    End If
                       
        If CheckBox71.Value = True Then 'X
    ActiveSheet.Cells(114, 4).Value = "X"
    End If
    
        If CheckBox72.Value = True Then 'X
    ActiveSheet.Cells(115, 4).Value = "X"
    End If
    
        If CheckBox69.Value = True Then 'X
    ActiveSheet.Cells(116, 4).Value = "X"
    End If
                  
        If CheckBox49.Value = True Then 'X
    ActiveSheet.Cells(117, 4).Value = "X"
    End If
                   
        If CheckBox50.Value = True Then 'X
    ActiveSheet.Cells(118, 4).Value = "X"
    End If
                   
        If CheckBox51.Value = True Then 'X
    ActiveSheet.Cells(119, 4).Value = "X"
    End If
                   
        If CheckBox52.Value = True Then 'X
    ActiveSheet.Cells(120, 4).Value = "X"
    End If
                   
        If CheckBox53.Value = True Then 'X
    ActiveSheet.Cells(121, 4).Value = "X"
    End If
                   
        If CheckBox54.Value = True Then 'X
    ActiveSheet.Cells(122, 4).Value = "X"
    End If
                       
        If CheckBox55.Value = True Then 'X
    ActiveSheet.Cells(123, 4).Value = "X"
    End If
                       
        If CheckBox56.Value = True Then 'X
    ActiveSheet.Cells(124, 4).Value = "X"
    End If
                       
        If CheckBox57.Value = True Then 'X
    ActiveSheet.Cells(125, 4).Value = "X"
    End If
    
        If CheckBox58.Value = True Then 'X
    ActiveSheet.Cells(126, 4).Value = "X"
    End If
               
        If CheckBox59.Value = True Then 'X
    ActiveSheet.Cells(127, 4).Value = "X"
    End If
               
        If CheckBox60.Value = True Then 'X
    ActiveSheet.Cells(128, 4).Value = "X"
    End If
                   
        If CheckBox61.Value = True Then 'X
    ActiveSheet.Cells(129, 4).Value = "X"
    End If
                   
        If CheckBox62.Value = True Then 'X
    ActiveSheet.Cells(130, 4).Value = "X"
    End If
                   
        If CheckBox63.Value = True Then 'X
    ActiveSheet.Cells(131, 4).Value = "X"
    End If
                   
        If CheckBox64.Value = True Then 'X
    ActiveSheet.Cells(132, 4).Value = "X"
    End If
                   
        If CheckBox65.Value = True Then 'X
    ActiveSheet.Cells(133, 4).Value = "X"
    End If
                   
        If CheckBox66.Value = True Then 'X
    ActiveSheet.Cells(134, 4).Value = "X"
    End If
                       
        If CheckBox67.Value = True Then 'X
    ActiveSheet.Cells(135, 4).Value = "X"
    End If
                       
        If CheckBox48.Value = True Then 'X
    ActiveSheet.Cells(136, 4).Value = "X"
    End If
                       
        If CheckBox73.Value = True Then 'X
    ActiveSheet.Cells(137, 4).Value = "X"
    End If
    
        If CheckBox74.Value = True Then 'X
    ActiveSheet.Cells(138, 4).Value = "X"
    End If
                  
        If CheckBox75.Value = True Then 'X
    ActiveSheet.Cells(139, 4).Value = "X"
    End If
                   
        If CheckBox68.Value = True Then 'X
    ActiveSheet.Cells(140, 4).Value = "X"
    End If
                   
        If CheckBox76.Value = True Then
    ActiveSheet.Cells(141, 4).Value = "X"
    End If
                       
        If CheckBox78.Value = True Then
    ActiveSheet.Cells(142, 4).Value = "X"
    End If
                       
        If CheckBox79.Value = True Then
    ActiveSheet.Cells(143, 4).Value = "X"
    End If
                       
        If CheckBox80.Value = True Then
    ActiveSheet.Cells(144, 4).Value = "X"
    End If
                       
        If CheckBox81.Value = True Then
    ActiveSheet.Cells(145, 4).Value = "X"
    End If
                       
        If CheckBox82.Value = True Then
    ActiveSheet.Cells(146, 4).Value = "X"
    End If
                       
        If CheckBox83.Value = True Then
    ActiveSheet.Cells(147, 4).Value = "X"
    End If
                       
        If CheckBox84.Value = True Then
    ActiveSheet.Cells(148, 4).Value = "X"
    End If
                       
        If CheckBox85.Value = True Then
    ActiveSheet.Cells(149, 4).Value = "X"
    End If
                       
        If CheckBox86.Value = True Then
    ActiveSheet.Cells(150, 4).Value = "X"
    End If
    
        If CheckBox87.Value = True Then
    ActiveSheet.Cells(151, 4).Value = "X"
    End If
    
        If CheckBox88.Value = True Then
    ActiveSheet.Cells(152, 4).Value = "X"
    End If
    
        If CheckBox89.Value = True Then
    ActiveSheet.Cells(153, 4).Value = "X"
    End If
    
        If CheckBox90.Value = True Then
    ActiveSheet.Cells(154, 4).Value = "X"
    End If
    
        If CheckBox91.Value = True Then
    ActiveSheet.Cells(155, 4).Value = "X"
    End If
    
        If CheckBox92.Value = True Then
    ActiveSheet.Cells(156, 4).Value = "X"
    End If
                
    
      
    
End Sub
    


Private Sub UserForm_Click()

End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Eingabemaske auch zum bearbeiten
07.02.2024 14:01:57 Marcel H.
NotSolved
07.02.2024 14:44:00 Gast55634
NotSolved
07.02.2024 15:32:22 Gast53243
NotSolved
07.02.2024 15:58:12 Mase
NotSolved
07.02.2024 18:00:46 Flatulenz
NotSolved
07.02.2024 19:33:17 ralf_b
NotSolved
07.02.2024 19:37:50 Flatulenz
NotSolved
07.02.2024 19:46:17 ralf_b
NotSolved
08.02.2024 04:58:20 Gast01233
NotSolved