Makro Spalten zusammenfügen

Computer: Software & Programmierung Visual Basic
#1

Hallo Makro Begeisterte
ich habe ein kleines Makro laufen und bräuchte eine Verbesserung.
Ich kopiere die Spalte A ab A2 mit der Spalte E ab E2 zusammen.
Dazwischen füge ich einen „/“ ein. Funktioniert.
Verbesserung: wie kann ich abhängig von der Spaltenlänge in A dieses Makro laufen lassen. Aktuell habe ich meine Spaltenlänge auf 500 eingestellt und lösche manuell die zufielen / raus.
Für Eure Hilfe bin ich dankbar.

Viele Grüße H.

Sub zusammenfügen()

Range(„A2“).Select
ActiveCell.FormulaR1C1 = „=RC[1]&“"/""&RC[4]"
Range(„A2“).Select
Selection.AutoFill Destination:=Range(„A2:A500“), Type:=xlFillDefault

End Sub

#2

Hallo H.

Selection.AutoFill Destination:=Range(„A2:A500“),
Type:=xlFillDefault

So sollte es funktionieren:

Selection.AutoFill Destination:=Range("A2:A" & Range("$A$" & Tabelle1.Rows.Count).End(xlUp).Row), Type:=xlFillDefault

Ob „Tabelle1“ der richtige Code name der Tabelle ist, kann ich natürlich nicht wissen. Ggf anpassen.

VG
Carsten

#3

Hallo H,

ich habe ein kleines Makro laufen und bräuchte eine
Verbesserung.
Ich kopiere die Spalte A ab A2 mit der Spalte E ab E2
zusammen.
Dazwischen füge ich einen „/“ ein. Funktioniert.

nein, das funktioniert so nicht. Nach deinem Makro steht in A2:
=B2&"/"&E2

Ist es das was du möchtest?

Verbesserung: wie kann ich abhängig von der Spaltenlänge in A
dieses Makro laufen lassen. Aktuell habe ich meine
Spaltenlänge auf 500 eingestellt und lösche manuell die
zufielen / raus.

Da hat Carsten ja schon geschrieben. Lass dort „Tabelle1.“ weg, nur Rows.Count reicht.

Der prehtml-Tag klappt hier nicht bei Vba-Code, nimm nur pre-Tag für Codeeinrückungen.

Sub zusammenfügen1()
With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
 .FormulaR1C1 = "=RC[1]&""/""&RC[4]"
End With
End Sub

'oder so:

Sub zusammenfügen2()
With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
 .FormulaR1C1 = "=RC[1]&""/""&RC[4]"
 .Value = .Value
End With
End Sub

Gruß
Reinhard

#4

Hallo Reinhard und Carsten,

habe das kleine Makro von Reinhard kopiert und es funktioniert.

vielen Dank.

Wie lernt man das am Besten?
Buch lesen, probieren und andere Leute nerven?
Oder gibts das im Gymi?
Auf jeden Fall schönes Wochenende

Viele Grüße Hans.