Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.12.2011 12:45:58 |
Jack |
|
|
|
14.12.2011 13:07:28 |
Dekor |
|
|
Problem bei Übernahme eines Wertes in ein Label |
14.12.2011 14:30:21 |
Jack |
|
|
Von:
Jack |
Datum:
14.12.2011 14:30:21 |
Views:
1338 |
Rating:
|
Antwort:
|
Thema:
Problem bei Übernahme eines Wertes in ein Label |
Hi Dekor,
stimmt, es wird der Variable Datum leer übergeben. Hab den Code somit auch angepasst aber es wird immer noch kein Inhalt in Label eingetragen :s....
Hier mal der modifizierte Code:
Sub klick()
Dim wkb As Workbook
Dim kennzeichen As String
Dim fin As String
Dim zeile As Long
Dim spalte As Long
Dim datum As Date
Dim textboxDat As Date
Dim name As String
Dim auslieferungsDat As String
Dim uhrzeitAuslieferung As Variant
Set wkb = Workbooks.Open("C:\Dokumente und Einstellungen\P325130\Desktop\kopie Neuwagen\Neuwagenmanagement.xls")
wkb.Activate
Sheets("Neuwagen").Activate
zeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'kennzeichen = TextBox13.Value
textboxDat = TextBox3.Value
datum = Cells(zeile, 13)
If (textboxDat = datum) Then
Set rangeobj = Cells.Find(What:=textboxDat, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If rangeobj Is Nothing Then
MsgBox "Das Datum " + datum + " wurde nicht gefunden!"
Else
zeile = rangeobj.Row
spalte = rangeobj.Column
If (Cells(zeile, 14).Value = "9:00") Then
Label120.Caption = Cells(zeile, 5).Value
End If
End If
End If
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
14.12.2011 12:45:58 |
Jack |
|
|
|
14.12.2011 13:07:28 |
Dekor |
|
|
Problem bei Übernahme eines Wertes in ein Label |
14.12.2011 14:30:21 |
Jack |
|
|