Thema Datum  Von Nutzer Rating
Antwort
12.02.2016 12:56:53 Hans
NotSolved
13.02.2016 08:31:36 Gast18986
NotSolved
Rot Zwei Werte vergleichen - Text zurückgeben
 13.02.2016 12:08:56 Gast73289
Solved
14.02.2016 11:38:35 Hans
Solved

Ansicht des Beitrags:
Von:
Gast73289		 Datum:
13.02.2016 12:08:56		 Views:
1348		 Rating:
     
Antwort:
 Nein
Thema:
Zwei Werte vergleichen - Text zurückgeben		 
Sub Makro1()
'
Dim rngText As Range, Zeit As Double, Spalte As Long

   'Textbeginn
   Set rngText = Range("B5")
   'Uhrzeit steht in "H5" = offset(,6) und auch in Zeile 4
 Do While rngText.Formula <> ""
   Zeit = CDbl(rngText.Offset(, 6).Value)
   On Error Resume Next
   Spalte = Application.Match(Zeit, Rows(4), 0)
   Cells(rngText.Row, Spalte).Value = rngText.Value
   On Error GoTo 0
   Set rngText = rngText.Offset(1)
 Loop
 
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
12.02.2016 12:56:53 Hans
NotSolved
13.02.2016 08:31:36 Gast18986
NotSolved
Rot Zwei Werte vergleichen - Text zurückgeben
 13.02.2016 12:08:56 Gast73289
Solved
14.02.2016 11:38:35 Hans
Solved