Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
868to872
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
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion..

Funktion..
13.05.2007 19:34:55
HermannZ

Hi;
brauche eine gehhilfe.
Ich möchte folgende Schritte mit einer Funktion erreichen,
1.) Ich makiere einen Bereich z.B. Zelle A1 bis E2
2.) der Text aus Zelle A1 soll mit einem freiwählbaren Trennzeichen und der Zahl aus Zelle A2 plus Trennzeichen verbunden werden,
3.) der dadurch entstandene Text soll nun um den Text aus B1 und Trennzeichen und Zahl aus B2
erweitert werden.
usw. bis E1 und E2
nach der letzten Zahl also nach E2 soll kein Trennzeichen sein.
Gruss HermannZ

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion..
13.05.2007 19:38:41
schauan
Hallo Hermann,
wird zwar nicht der beste code - aber probier's mal mit aufzeichnen. Für das Zusammenfügen von Texten setzt Du dabei entsprechende Formeln in die Tabelle und tust sie anschliessend mit Kopieren - Inhalte einfügen - Werte - überschreiben.
Wenn das klappt poste Deinen code und wir optimieren das.
Hoffe geholfen zu haben Grüße von André aus Gera - Stadt der Buga 2007 - Excel-97-2003

AW: Funktion..
13.05.2007 20:38:45
Josef Ehrensberger
Hallo Hermann,
vielleicht so.
Tabelle2

AW: Funktion..
13.05.2007 20:53:46
HermannZ
Hallo Josef;
vielen dank für die Funktion das ist das was ich mir darunter vorgestellt habe.
damit komme ich meinem gewünschten Ziel wesentlich näher.
nochmal Danke.
Gruss HermannZ

Anzeige
AW: @Josef.....Zusatzfrage
13.05.2007 21:28:45
HermannZ
Hallo Josef;
eine zusatzfrage;
kann man diesen Schleifendurchlauf so ändern das nach dem ersten Zelle etwas anderes gemacht wird als nach der zweiten.Brauche ich für was anderes, hat mit dieser Funktion nicht zu tun.
Gruss HermannZ

AW: @Josef.....Zusatzfrage
13.05.2007 21:32:52
Josef Ehrensberger
Hallo Hermann,
sicher geht das, aber man sollte genauer wissen was du vor hast, sonst wird es ein Ratespiel;-))
Gruß Sepp

AW: @Josef.....Zusatzfrage
13.05.2007 21:45:15
HermannZ
Hallo Josef;
ist eigendlich ganz einfach, ich versuche mit deiner konstruktion folgendes, nach der Zahl aus z.B.
Zelle a1 setzte ein Wort, nach der zahl aus Zelle A2 ein Komma, nach der zahl aus zelle B1 ein Wort und nach der zahl aus Zelle B2 ein komma usw.
Ich hoffe du kannst mir folgen;
Gruss HermannZ

Anzeige
AW: @Josef.....Zusatzfrage
13.05.2007 22:27:01
Josef Ehrensberger
Hallo Hermann,
probier mal.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function VERKETTEN2(ByRef Bereich1 As Range, ByRef Bereich2 As Range, _
    Optional Trenner1 As String = " ", Optional Trenner2 As String = " ", _
    Optional Spalte0_Zeile1 As Integer = 0) As String

Dim rng As Range, r As Range
Dim v() As Variant, w() As Variant
Dim lngI As Long
Dim s As String

If Bereich1.Columns.Count <> Bereich2.Columns.Count Or Bereich1.Rows.Count <> Bereich2.Rows.Count Then
    VERKETTEN2 = "#BEZUG!"
End If

If Spalte0_Zeile1 = 0 Then
    For Each rng In Bereich1.Columns
        For Each r In rng.Cells
            Redim Preserve v(lngI)
            v(lngI) = r & Trenner1
            lngI = lngI + 1
        Next
    Next
Else
    For Each rng In Bereich1.Rows
        For Each r In rng.Cells
            Redim Preserve v(lngI)
            v(lngI) = r & Trenner1
            lngI = lngI + 1
        Next
    Next
End If

lngI = 0


If Spalte0_Zeile1 = 0 Then
    For Each rng In Bereich2.Columns
        For Each r In rng.Cells
            Redim Preserve w(lngI)
            w(lngI) = r & Trenner2
            lngI = lngI + 1
        Next
    Next
Else
    For Each rng In Bereich2.Rows
        For Each r In rng.Cells
            Redim Preserve w(lngI)
            w(lngI) = r & Trenner2
            lngI = lngI + 1
        Next
    Next
End If

For lngI = 0 To UBound(v)
    s = s & v(lngI) & w(lngI)
Next

VERKETTEN2 = Left(s, Len(s) - Len(Trenner2))

End Function

Sub nn()
Dim i

For i = 2001 To 5000
    Debug.Print Error(i), i
Next
End Sub

Gruß Sepp

Anzeige
AW: @Josef.....Zusatzfrage
14.05.2007 09:28:54
HermannZ
Hallo Josef;
vielen Dank für deine Hilfe, die wie immer hervorragend ist.
Gruss Hermann

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige