Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > Fragen zu Excel/VBA >
Hier kannst Du Fragen speziell zu Deinem Problem stellen
In diesem Board befinden sich 1671 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH, .
Seite 1 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


 ist offline   Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
11.1.2017 - 10:14 Uhr
Posts



Hallo Zusammen,

ich hoffe, dass ich mit meiner Fragerei bald am Ende bin. Leider möchte mein Chef noch eine bestimmte Möglichkeit eingebaut haben.

Ich arbeite mit zwei Dateien: einmal Lager und einmal auf verschiedene Standorte verteilt.

Wenn vom Lager Ware an einen Standort verschickt wird, wird in deren Datei das Versanddatum eingetragen. Hierzu steht in jedem Datensatz eine Inventarnummer.
Nun möchte er, dass, wenn die Ware eingetroffen ist, wieder ein Datum gesetzt wird. Das klappt über eine ListBox mittels Doppelklick.

Es soll jetzt jedoch in der "Lager"-Liste in der Zeile mit dem entsprechenden Label ebenfalls das Eingangsdatum erscheinen. Und da bin ich hilflos.


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim rngRow As Long

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
'*** einfärben ***
rngRow = ListBox1.List(i, 0)
With Worksheets("Lager")
.Range(.Cells(rngRow, 1), .Cells(rngRow, 12)).Interior.Color = vbWhite
'*** Datum setzen ***
.Cells(rngRow, 12).Value = Date
End With
End If
Next i

For Each wb In Application.Workbooks

If wb.Name = "Label_Probe.xlsm" Then geoeffnet = True
Next wb

If geoeffnet Then

With Workbooks("Label_Probe.xlsm").Worksheets("Daten")

'....
End With

End If

Else
Workbooks.Open Filename:="h:\eigene Dateien\projekte\Label_Probe.xlsm", UpdateLinks:=0

With Worksheets("Daten")
'....
End With

End If
End Sub


Die Label-Nummer steht jeweils in Spalte D und das Rückgabedatum in Spalte K.

Hoffentlich kann mir jemand weiterhelfen, damit ich das Ding bald vom Tisch habe.

Vielen Dank an Euch alle.

Anderl

 ist offline  : Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
13.1.2017 - 17:16 Uhr
Posts



Hi,
[quote]Es soll jetzt jedoch in der "Lager"-Liste in der Zeile mit dem entsprechenden Label ebenfalls das Eingangsdatum erscheinen.[/quote]

Das hat da gar nichts verloren. Weg ist weg !!!

Gruß Roland

Seite 1 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek