Thema Datum  Von Nutzer Rating
Antwort
18.01.2016 01:49:44 VBA Verzweifelter
NotSolved
Blau Zeile nach Wert durchsuchen und Spaltennummer ausgeben
 18.01.2016 02:56:52 Gast65500
NotSolved
21.01.2016 18:29:11 VBA Verzweifelter
Solved

Ansicht des Beitrags:
Von:
Gast65500		 Datum:
18.01.2016 02:56:52		 Views:
647		 Rating:
     
Antwort:
  Ja
Thema:
Zeile nach Wert durchsuchen und Spaltennummer ausgeben

Hallo,

im Prinzip so:

Option Explicit

Sub ImportCapacityData()
 
Dim Pfad As String
Dim File1 As String
Dim wb1 As Workbook
Dim DatumsSpalte1 As Range
Dim DatumsSpalte2 As Range
Dim c As Integer
 
 
Pfad = Workbooks("Capacity Management_BO").Worksheets("Parameter").Cells(3, 2).Value
File1 = Pfad & "Capacity Management_Clearing Operationsv2.xlsm"
 
With Workbooks.Open(File1).Worksheets("Team capacity plan").Range("A5:DD5")
    Set DatumsSpalte1 = .Find(What:=Workbooks("Capacity Management_BO").Worksheets("Request").Range("C2").Value, _
      LookIn:=xlFormulas, LookAt:=xlWhole)
End With
If Not DatumsSpalte1 Is Nothing Then
   Call MsgBox("Zielspalte: " & DatumsSpalte1.Column)
Else
   Call MsgBox("Datumswert nicht gefunden...", vbExclamation)
End If
End Sub

weitere mögliche Fehlerquellen:

  • Dein Datumswert in Worksheets("Request").Range("C2").Value  ist fehlerhaft
  • es fehlt in der Stringvariablen 'Pfad' noch ein Backslash

Wenn weiter Fehler auftreten, den Fehlernamen und die -nummer exakt benennen, ebnso in welcher Zeile er auftritt, oder noch besser eine Bsp.-mappe auf   Imagenetz hochladen....

Gruß,

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
18.01.2016 01:49:44 VBA Verzweifelter
NotSolved
Blau Zeile nach Wert durchsuchen und Spaltennummer ausgeben
 18.01.2016 02:56:52 Gast65500
NotSolved
21.01.2016 18:29:11 VBA Verzweifelter
Solved