Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen suchen und bestimmte Zellen parameter per .bat übergeben
21.06.2015 14:51:42 benjaminde
NotSolved
21.06.2015 16:18:51 Gast30747
NotSolved

Ansicht des Beitrags:
Von:
benjaminde
Datum:
21.06.2015 14:51:42
Views:
1607
Rating: Antwort:
  Ja
Thema:
Zellen suchen und bestimmte Zellen parameter per .bat übergeben

Liebe Experten,

Zu meiner Frage habe ich seit zwei Tagen recherchiert aber jedoch nichts lauffähiges zustande gebracht.

Ich versuche ein Makro zu basteln, dass über eine Userform die letzte ausgewählte Zeile identifiziert, Anschließend soll in der ersten Zeile gesucht werden in welcher Spalte sich "G3E_FNO" Und G3E_FID" befinden, da diese Zeilen in der Vorbearbeitung in unterschiedlichen Spalten stehen können. wenn FID und FNO Spalten ermittelt sind möchte ich den Wert von FID und FNO an eine Batch-Datei weitergeben.

Aktuell habe ich eine Userform aufgesetzt die Folgendermaßen aussieht:
 

Private Sub CommandButton1_Click()
'OK-Knopf


'Bisheriger code

'Zeilenvariable
Dim Row As Long

'Batchaufruf
Dim batch
'Ausgabestrings für die Parameter
Dim FNO_Text As String
Dim FID_Text As String

'Rangevariable zum Auslesen
Dim Spalte_FID As Range
Dim Spalte_FNO As Range



'Letzte ausgewählte zeile auswählen
Row = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

'Finde FID & FNO in der ersten zeile
 Set Spalte_FID = ActiveSheet.Rows(1).Find(what:="G3D_FID*", lookat:=xlWhole)
Set Spalte_FNO = ActiveSheet.Rows(1).Find(what:="G3D_FNO*", lookat:=xlWhole)

'Wähle die Zellen an Standort Row,Spalte_FID & Row,FNO_Spalte aus und verwandle den inhalt in  _
einen String

Set FID_Text = ActiveSheet.Range(Cells(Row, FID_Spalte.Column)).Select
Set FNO_Text = ActiveSheet.Range(Cells(Row, FNO_Spalte.Column)).Select

'Batchaufruf mit string parametern
batch = Shell("C:\beispiel.bat " & FID_Text & FNO_Text, 1)

'Fenster Schließen
Unload Me
End Sub

habe einfach nicht den Hauch einer Ahnung wie ich das fertig bekommen soll und werde aus der API auch noch nicht so schlau, da ich VBA erst seit ca. 1 Woche Programmiere.

Ich hoffe ihr könnte mir erklären:
-Wie ich die suche Mache und anschließend auf die benötigten Parameter zurückgreifen kann.

-Wie ich einen String mit dem Inhalt einer Zelle belegen kann

vielen Dank im Vorraus 

Mfg Ben


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
Rot Zellen suchen und bestimmte Zellen parameter per .bat übergeben
21.06.2015 14:51:42 benjaminde
NotSolved
21.06.2015 16:18:51 Gast30747
NotSolved