Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalt hinzufügen ?

Zelleninhalt hinzufügen ?
11.11.2007 20:13:45
Selma
Hallo Leute,
in Spalte D möchte ich ab Zeile 2 bis letzte gefüllte Zelle der Spalte D die Zelleninhalte der Spalte F und G mit "_" als Trennzeichen vor dem letzten vier Zeichen (von rechts gesehen) der Spalte D hinzufügen.
Beispiel vorher:
Beispiel nachher:
Wie mache ich das per VBA ?
Vielen Dank im Voraus !
Liebe Grüße
Selma

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt hinzufügen ?
11.11.2007 20:22:00
Daniel
Hi
mal als einfache Schleife (und daher nicht besonders schnell:

dim Zelle as range
for each Zelle in range("D2:D" & range("D2").end(xldown).row)
Zelle.value = zelle.value & "_" & zelle.offset(0,2).value & "_"& zelle.offset(0,3).value
next


Gruß, Daniel

AW: Zelleninhalt hinzufügen ?
11.11.2007 21:59:00
Selma
Hi Daniel,
so sieht es jetzt aus: ZWG_BBB_A_4_DE_QS_DD_-_02.pdf_D_A
richtig wäre ZWG_BBB_A_4_DE_QS_DD_-_02_D_A.pdf
Das Hinzufügen soll vor dem letzten vier Zeichen (im Beispiel vor .pdf) passieren.
Was muss ich ändern ?
LG
Selma

Anzeige
AW: Zelleninhalt hinzufügen ?
11.11.2007 22:08:14
Josef
Hallo Selma,
probier mal.
Sub nn()
Dim a As Variant, b As Variant, c As Variant
Dim lngR As Long, lngEnd As Long

lngEnd = Application.Max(2, Cells(Rows.Count, 4).End(xlUp).Row)

a = Range("D2:D" & lngEnd)
b = Range("F2:F" & lngEnd)
c = Range("G2:G" & lngEnd)

For lngR = 1 To UBound(a, 1)
    a(lngR, 1) = Left(a(lngR, 1), Len(a(lngR, 1)) - 4) & "_" & _
        b(lngR, 1) & "_" & c(lngR, 1) & Right(a(lngR, 1), 4)
Next

Range("D2:D" & lngEnd) = a

End Sub

Gruß Sepp

Anzeige
AW: Zelleninhalt hinzufügen ?
11.11.2007 22:14:58
Selma

Liebe Grüße,
Selma

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige