Office: zelleninhalte mittels vba verketten

Hallo zusammen,

Für den Austausch mit einem CAD Programm benötige ich folgende Funktionen und werde einfach durch zuwenig vba Kenntnisse nicht fündig. Vielleicht kann mir von euch jemand auf die Sprünge helfen.

Ich lese mittels eines aufgezeichneten Makros eine tabulatorgetrennte txt datei in excel ein:
Sub txt2xls()
'
' txt2xls Makro
'

'
Workbooks.OpenText Filename:="C:\test.txt", Origin:=xlMSDOS, StartRow:=1 _
, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2,1), _
Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
End Sub

Die excel Datei die ich dabei erhalte ist wie folgt aufgebaut:

Zeile 1: Enthält die Überschriften (Spalte A bis "X" --> je nach Zeichnung Verschieden)
Eine dieser Überschriften lautet "HYPERLINK", nun sollte ich in jeder Zelle ab Zeile 2 unter Hyperlink eine Verkettung der Restlichen Spalten wie folgt erstellen (automatisiert) .

Für Hyperlink Zelle in Zeile 2,3 bis z sollte es wie folgt aussehen
h**p://www.xy.com/index.php?TextfeldA1=TextfeldA2&TextfeldB1=TextfeldB2&Textfeld X1=TextfeldX2
h**p://www.xy.com/index.php?TextfeldA1=TextfeldA3&TextfeldB1=TextfeldB3&Textfeld X1=TextfeldX3
h**p://www.xy.com/index.php?TextfeldA1=TextfeldAz&TextfeldB1=TextfeldBz&Textfeld X1=TextfeldXz

Bei "h**p://www.xy.com/index.php?" handelt es sich immer um einen reinen Text.

Bei den ganzen vba Fragmenten die ich finde erkenne ich die Zusammenhänge einfach nicht wenn alles Variabel bleiben muss.
Leider ist der Text "HYPERLINK" auch immer in einer anderen Spalte, somit muss beim Erstellen des Zelleninhaltes immer eine andere Spalte ausgenommen werden.

Beim dynamischen Link ist es zum Glück egal in welcher Reihenfolge die Werte eingegeben werden.

Weiters würde ich gerne die Datei am Ende der Routine wieder als txt tabulatorgetrennt speichern.

Ich weiß dass das schon an einen Programmierauftrag erinnert aber vielleicht suche ich ja auch einfach nach den falschen Begriffen.
Bin schon für jeden Tipp dankbar mit dem ich "weiterbasteln" kann.

Danke EUCH
Dominik

:)

 

Lade doch einfach mal eine Beispieldatei hoch, das erleichtert die Sache ungemein.

 

Hallo !
Anbei ein Tabellenbeispiel jedoch ohne irgendwelche vba gehversuche nur zur Veranschaulichung.
Bei Verwendeten CAD Programm handelt es sich um Autocad welches MS VBA unterstützt.
Wäre es da dann theoretisch auch möglich excel von acad mittels eines makros anzusprechen und das von extern laufen zu lassen?

Danke schon vorab
Dominik

 

Hallo,

betreffend der Lösung der Ausgabe des dynamischen Hyperlinks in einer Zelle,
hat mir schon wer geholfen s.u. (erste Tests waren alle richtig)
Werd jetztnoch weiterbasteln und dann berichten !

Danke, Dominik

Option Explicit

Sub sbHL()

Dim liRow As Integer, liCol As Integer, liHP As Integer, liHL As Integer, lstrHL As String

For liCol = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If LCase(Cells(1, liCol).Value) = "homepage" Then
liHP = liCol
End If
If LCase(Cells(1, liCol).Value) = "hyperlink" Then
liHL = liCol
End If
Next

For liRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
lstrHL = Cells(liRow, liHP).Value & "/"
For liCol = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If liCol liHP And liCol liHL Then
lstrHL = lstrHL & Cells(1, liCol).Value & "=" & Cells(liRow, liCol).Value & "&"
End If
Next
lstrHL = Left(lstrHL, Len(lstrHL) - 1)
ActiveSheet.Hyperlinks.Add Anchor:=Cells(liRow, liHL), Address:=lstrHL, TextToDisplay:=lstrHL


Next

End Sub