Thema Datum  Von Nutzer Rating
Antwort
14.04.2016 09:46:15 Ani
NotSolved
14.04.2016 11:01:13 Benjaminus
NotSolved
Rot Von wegen Jahreszahl
 14.04.2016 13:05:20 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
14.04.2016 13:05:20		 Views:
669		 Rating:
     
Antwort:
  Ja
Thema:
Von wegen Jahreszahl

Nur für den Fall, das du in deiner Zeile ein Jahr aus einem Datum suchst, etwas ausführlicher

Option Explicit
'Zitat
'einen Wert, genauer eine Jahreszahl
'in der ersten Zeile suchen
'als Ergebnis die Spaltennummer in der Wert steht

Sub TestIt()
'bezogen auf die aktuelle Tabelle dieser Arbeitsmappe
Dim varSuche As String  'gesucht wird
Dim rngSuche As Range   'wo
Dim a As Range          'Zellbereiche
Dim c As Range          'Zellen
Dim blnHit As Boolean   'Treffer

Dim lngSpalte As Long   'Trefferspalte als Nummer

   'eine Ganzzahl als String abfragen
   varSuche = InputBox("Die Jahreszahl = ")
   'Suchbereich - Rows(1) = erste Zeile
   Set rngSuche = ActiveSheet.Rows(1).RowDifferences(Comparison:=ActiveSheet.Cells(1, Columns.Count).End(xlToRight))
   'durch ev. Zellbereiche
   For Each a In rngSuche.Areas
      'die Zellen prüfen
      For Each c In a.Cells
         blnHit = False
         'Zelle enthält Datumswert
         If IsDate(c.Value) = True Then
            If InStr(CStr(c.Value), varSuche) > 0 Then
               blnHit = True
               Exit For
            End If
         Else
            '
            If CStr(c.Value) = varSuche Then
               blnHit = True
               Exit For
            End If
         End If
      Next c
      'Treffer?
      If blnHit = True Then Exit For
   Next a
   '
   'Treffer!
   If blnHit = True Then lngSpalte = c.Column
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
14.04.2016 09:46:15 Ani
NotSolved
14.04.2016 11:01:13 Benjaminus
NotSolved
Rot Von wegen Jahreszahl
 14.04.2016 13:05:20 Gast70117
NotSolved