Zeile suchen und ergänzen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zeile suchen und ergänzen
von: Shawn
Geschrieben am: 02.09.2015 10:01:17

Guten Morgen
Wollte dieses Makro was sehr gut läuft auf andere Bereiche legen
und komme einfach nicht weiter
Beispieldatei wo ich es umschreiben wollte: https://www.herber.de/bbs/user/99963.xls
'hier das Makro das läuft
Option Explicit

Private Sub CommandButton1_Click()
    Dim C As Range
    Dim rngBereich As Range
    Dim i As Integer
    With Worksheets("Eingabe Daten Prod. Auftrag")
        Set rngBereich = .Range("B10:B28")
        Set C = rngBereich.Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not C Is Nothing Then
            If .Cells(C.Row, "H").Value = "" Then
                .Cells(C.Row, "H").Value = TextBox2.Value
                .Cells(C.Row, "I").Value = TextBox3.Value
                .Cells(C.Row, "J").Value = TextBox4.Value
                MsgBox "Auftrag wurde eingetragen"
                For i = 1 To 4
                    Controls("Textbox" & i).Value = ""
                Next
            Else
                MsgBox "Auftrag wurde schon angelegt"
            End If
        Else
            MsgBox "Produktionsauftrag nicht gefunden"
        End If
    End With
End Sub
'Vielen Dank an Tom
Was mache ich falsch
Viele Grüsse Shawn

Bild

Betrifft: AW: Zeile suchen und ergänzen
von: Shawn
Geschrieben am: 02.09.2015 10:06:20
Also das erste Makro "Packauftrag erfassen" macht das was ich will
aber das zweite Makro "Packauftrag rückmelden" krieg ich nicht hin mit den OptionButton1 und 2
Er soll nur Packauftrag suchen und wenn gefunden in Entsprechende Spalte bei NL oder Fertig ein X schreiben

Bild

Betrifft: AW: Zeile suchen und ergänzen
von: AlexG
Geschrieben am: 05.09.2015 09:29:03
Hallo Shawn,
so?

Private Sub CommandButton1_Click()
    Dim C As Range
    Dim rngBereich As Range
    With Worksheets("Erfassung")
    
        Set rngBereich = .Range("A10:A9999")
        Set C = rngBereich.Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not C Is Nothing Then
            If .Cells(C.Row, "G").Value = "" Then
                If OptionButton1.Value = True Then .Cells(C.Row, "G").Value = "X"
                If OptionButton2.Value = True Then .Cells(C.Row, "H").Value = "X"
                MsgBox "Auftrag wurde Ausgebucht"
                
                TextBox1.Value = ""
                
            Else
                MsgBox "Auftrag wurde schon Rückgemeldet"
            End If
        Else
            MsgBox "Packauftrag nicht gefunden"
        End If
    End With
    Unload Me
    
End Sub

Gruß
Alex

Bild

Betrifft: AW: Zeile suchen und ergänzen
von: Shawn
Geschrieben am: 05.09.2015 11:22:15
Hallo AlexG
Genau so meint ich das, vielen Dank
hab nur noch G und H getauscht

Private Sub CommandButton1_Click()
    Dim C As Range
    Dim rngBereich As Range
    With Worksheets("Erfassung")
    
        Set rngBereich = .Range("A10:A9999")
        Set C = rngBereich.Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not C Is Nothing Then
            If .Cells(C.Row, "H").Value = "" Then
                If OptionButton1.Value = True Then .Cells(C.Row, "G").Value = "X"
                If OptionButton2.Value = True Then .Cells(C.Row, "H").Value = "X"
                MsgBox "Auftrag wurde Ausgebucht"
                
                TextBox1.Value = ""
                
            Else
                MsgBox "Auftrag wurde schon Rückgemeldet"
            End If
        Else
            MsgBox "Packauftrag nicht gefunden"
        End If
    End With
    Unload Me
    
End Sub
Viele Grüsse

Bild

Betrifft: Bitte, gern geschehen Gruß Alex (owT)
von: AlexG
Geschrieben am: 05.09.2015 11:28:47


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeile suchen und ergänzen"