Office: mit VBA Text aus 2 Zellen zusammenfügen

Hallo,
bin VBA Anfänger und verzweifel so langsam an meiner Aufgabe:
In der Tabelle2 Zelle A2 stehen vor dem = Zeichen zwischen 1-3 Buchstaben (A/S/Z).
Jeder einzelnen dieser Buchstaben soll mit dem Inhalt der Zelle A1 zusammengefügt werden und in die Tabelle1 kopiert werden.

Zum besseren Verständnis:

Quelle:
Tabelle2 Zelle A1: HH
Tabelle2 Zelle A2: ASZ=99

Ziel:
Tabelle1 Zelle A1: AHH=99
Tabelle1 Zelle A2: SHH=99
Tabelle1 Zelle A3: ZHH=99

Hoffe dass ich mein Problem verständlich beschrieben habe *tongue.gif*

Gruß
Torti

:)

 

Hallo Torte,

und wozu braucht man dafür VBA?

Tabelle1

	A
1	AHH=99
2	SHH=99
3	ZHH=99

Zelle	Formel
A1	=TEIL(Tabelle2!$A;ZEILE(A1);1)&Tabelle2!$A&RECHTS(Tabelle2!$A;3)
A2	=TEIL(Tabelle2!$A;ZEILE(A2);1)&Tabelle2!$A&RECHTS(Tabelle2!$A;3)
A3	=TEIL(Tabelle2!$A;ZEILE(A3);1)&Tabelle2!$A&RECHTS(Tabelle2!$A;3)

Tabelle2

	A
1	HH
2	ASZ=99

Excel Tabellen im Web darstellen >>

 

Hallo Sepp,
den Eintrag aus Tabelle2 A2 gibt es x-fach in mehreren Kombinationen:
A2: ASZ=99
A3: AS=1100
A4: Z = 0,676
A5: SZ=23,45

d.h. die Zeichen vor und hinder dem Gleichzeichen sind variable, ggfs. sind auch Leerzeichen eingetragen, welche nicht berücksichtigt werden soll.

Alle diese Zellen (A2-A5) sollen mit dem Text in Zelle A1 verknüpft und in im Tabelle1 angezeigt werden.

Hoffe ich habe mein Anliegen verständlich geschildert ...

 

Hallo Torte,

dann halt so.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub verketten()
Dim rng As Range
Dim vntTmp As Variant, strTmp As String
Dim lngIndex As Long, lngRow As Long
With Sheets("Tabelle1")
.Range("A:A").ClearContents
For Each rng In Sheets("Tabelle2").Range("A2:A" & _
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row)
If rng Like "*=*" Then
vntTmp = Split(rng.Text, "=")
strTmp = Trim$(vntTmp(0))
For lngIndex = 1 To Len(strTmp)
lngRow = lngRow + 1
.Cells(lngRow, 1) = Mid(strTmp, lngIndex, 1) & _
Sheets("Tabelle2").Range("A1") & "=" & Trim(vntTmp(1))
Next
End If
Next
End With
Set rng = Nothing
End Sub





« Gruß Sepp »

 

Mensch Sepp,
funktioniert wie ne Eins ...

Besten Dank und noch einen schönen Abend

Gruß
Torti