Richtige Kombination

[Stefan87]

Hallo zusammen

Habe vor ca. 2 Jahren eine kleine Arbeit gemacht, um einen Ablauf zu vereinfachen. Nun hat sich der Kunde um entschieden, er möchte das die Angaben anders aussehen.

Ich habe im Excel den Button BMK zusammensetzen. Wenn ich diesen Knopf betätige, möchte ich dass das Ergebnis aussieht wie im Beispiel in der Rubrik BMK. Was müsste ich an der bestehenden Sub ändern?

Momentan sieht die Sub noch so aus:

Code:

Sub Zusammenfügen()

With Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
.FormulaR1C1 = "=rc[-2] &""-"" & rc[-1]"
.Value = .Value
Dim letzteZeile As Long
Dim Zeile As Long

Mit der neuen Variante sollte es dann so aussehen wie im Anhang:

Wer kann mir da helfen??

Gruss Stefan

[Rudi'S]

Hallo Stefan,

nur deine Formel im Makro ändern auf:

.FormulaR1C1 = "=rc[-2] &""+"" & rc[-3] &""-"" & rc[-1]"

Gruß Rudi

[LuckyJoe]

Hi,

nur vollständigkeitshalber: wenn du Rudis Formel nimmst, musst du aber auch die "With"-Zeile anpassen, da in Spalte "C" nicht 3 Spalten zurück gerechnet werden kann:

Code:

With Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row)

[Rudi'S]

Dank an Jörg,
habe ich natürlich vergessen zu erwähnen, dachte aber, dass Stefan (ok andere lesen das auch) das selber hinbekommen würde, wo er doch vor 2 Jahren schon dieses Wissen für sein Makro hatte.
Gruß Rudi

[Stefan87]

Dank an Jörg,
habe ich natürlich vergessen zu erwähnen, dachte aber, dass Stefan (ok andere lesen das auch) das selber hinbekommen würde, wo er doch vor 2 Jahren schon dieses Wissen für sein Makro hatte.
Gruß Rudi

Hallo Rudi

Da hat mir auch einer von euch geholfen bei dem Makro den Anfang zu machen.

[Stefan87]

Hallo Stefan,

nur deine Formel im Makro ändern auf:

.FormulaR1C1 = "=rc[-2] &""+"" & rc[-3] &""-"" & rc[-1]"

Gruß Rudi

Hallo Rudi

Wenn ich deine Formel verwende, passiert dies hier:

[Case]

Hallo Stefan, :19:

bei dir ist Spalte D als Text formatiert. Formatiere als Standard und führe das Makro nochmal aus.

[Rudi'S]

HALLO Stefan,

ich vermute, dass du etwas Wesentliches vergessen hast. Schau dir dein Makro noch einmal genauer an.
 Kann es sein, dass am Anfang ein klitzekleines " vergessen wurde?
Oder hast du meine Voraussetzung und den Hinweis von Jörg nicht gelesen?
Bei mir funktioniert es. Hier also noch einmal dein Makro:

Sub Zusammenfügen()

Dim letzteZeile As Long
Dim Zeile As Long

With Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row)
      .FormulaR1C1 = "=rc[-2] &""+"" & rc[-3] &""-"" & rc[-1]"
      .Value = .Value
End With

End Sub

Gruß Rudi

[Stefan87]

Hallo Stefan, :19:

bei dir ist Spalte D als Text formatiert. Formatiere als Standard und führe das Makro nochmal aus.

Hallo Case

Danke für den Hinweis. Aber wie muss ich die Formel anpassen, das er zweizeilig schreibt, und am Anfang ein = steht?

Code:

Sub Zusammenfügen()

With Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row)
.FormulaR1C1 = "=rc[-2] &""+"" & rc[-3] &""-"" & rc[-1]"
.Value = .Value
Dim letzteZeile As Long
Dim Zeile As Long

---

HALLO Stefan,

ich vermute, dass du etwas Wesentliches vergessen hast. Schau dir dein Makro noch einmal genauer an.
 Kann es sein, dass am Anfang ein klitzekleines " vergessen wurde?
Oder hast du meine Voraussetzung und den Hinweis von Jörg nicht gelesen?
Bei mir funktioniert es. Hier also noch einmal dein Makro:

Sub Zusammenfügen()

Dim letzteZeile As Long
Dim Zeile As Long

With Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row)
      .FormulaR1C1 = "=rc[-2] &""+"" & rc[-3] &""-"" & rc[-1]"
      .Value = .Value
End With

End Sub

Gruß Rudi

Hallo Rudi

Habe mein Makro genau so gemacht wie du es gesagt hast. Dies funktioniert jetzt auch. Habe nur das Problem, das es mir nicht  zweizeilig schreibt, und kein = schreibt vor der 1. Zahl.

Mein Code sieht so aus:

Code:

Sub Zusammenfügen()

With Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row)
.FormulaR1C1 = "=rc[-2] &""+"" & rc[-3] &""-"" & rc[-1]"
.Value = .Value
Dim letzteZeile As Long
Dim Zeile As Long

[Case]

Hallo, :19:

so? :21:

  Zellen_ausfuellen_mit_Zeilenumbruch.xlsb (Größe: 16,76 KB / Downloads: 9)