Office: VBA Profis: Zellen in Left-Funktion ansprechen

Piet.Peter · 7. August 2016

Hallo liebe Leute,

ich hoffe ihr könnt mir weiterhelfen: (Muster im Anhang)

Ich würde gerne einen Textbaustein per Makro in seine Bestandteile zerlegen und in einem anderen Tabellenblatt einfügen. Zunächst sollen z.B. die ersten drei Zahlen der Kennung "00101VCBUSS026" (siehe Tabelle2, Spalte G) nach Tabelle1, Spalte 1 kopiert werden.

Die weiteren Schritte mit"mid" und "right" erspar ich euch mal.

Mein Makro zum ersten ist: Code:

Sub Mastermakro2()

Dim a As String
For a = 3 To 200

Worksheets(1).Range("A" & a).FormulaR1C1 = "=LEFT(Tabelle2!R["&a&"]C[7],3)"

Next a

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider bugt der, vor dem ´ "]C[7],3)" ` sollte anscheinend eine Klammer oder ähnliches stehen. (Fehler beim Kompilieren, Erwartet: Anweisungsende).

Ich habe auch schon alle anderen Möglichkeiten ausprobiert, mit Worksheet.Range ,etc...immer das gleiche Problem...*eek.gif*

Wisst ihr wo der Fehler liegen könnte oder habt ihr einen besseren Vorschlag?

Vielen Dank im Voraus!!

Piet

:)

mathieu_91 · 9. August 2016

Code:

Sub Mastermakro2()

Dim a As String
For a = 3 To 200

Worksheets(2).cells(a,1).value=Left(Worksheets(1).cells(a,1).value ,3)

Next a

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das schreibt in Zeile a, Spalte 1 von Tabelle 2 die ersten 3 Ziffern der Zahl in Tabelle 1, spalte 1 Zeile a.

Grüße

Mathieu

R J · 9. August 2016

...es genügt, wenn Du vor und hinter den & Leerzeichen setzt. Sind keine Leerzeichen vorhanden irritierst Du den Debugger, da a& als Long Variable erkannt/interpretiert wird.

Code:

Worksheets(1).Range("A" & a).FormulaR1C1 = "=LEFT(Tabelle2!R[" & a & "]C[7],3)"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Piet.Peter · 9. August 2016

Super danke euch beiden!!!

Die Lösung von Mathieu hat nach einigen Änderungen super funktioniert!! Zuerst hat sie mir die Werte ausgegeben, ich brauchte aber die gesamte Zahl(auch mit den Nullen vorne). Hab dann einfach das .Value weggelöscht *wink.gif*

Danke auch für deinen Lösungshinweis R J. Leider gabs dann ein weiteres Problem bei meinem Makro, aber zumindest ist es jetzt eines weniger *biggrin.gif*

Liebe Grüße
Piet

Office: VBA Profis: Zellen in Left-Funktion ansprechen

VBA Profis: Zellen in Left-Funktion ansprechen

VBA Profis: Zellen in Left-Funktion ansprechen

VBA Profis: Zellen in Left-Funktion ansprechen

VBA Profis: Zellen in Left-Funktion ansprechen - Similar Threads - VBA Profis Zellen

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

VBA Profis: Argument suchen und gefundene Zeile kopieren

VBA Hilfe von Profis: Zeilen nach Kriterien suchen und in anderem Blatt einfügen