Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1024to1028
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
Inhaltsverzeichnis

Werte mit Makro auslesen und zusammensetzen

Werte mit Makro auslesen und zusammensetzen
20.11.2008 13:37:00
Hans
Hallo,
Wer kann mir da helfen?
Makro:
Sub test()
Dim sAntwort As String
Dim lZeile As Long
Dim iSpalte As Integer
Dim bGefunden As Boolean
sAntwort = Selection.Address(0, 0)
For iSpalte = 2 To 5
For lZeile = Selection.Row To 1 Step -1
If Left(Cells(lZeile, iSpalte).Value, 4) = "Mat " Then
bGefunden = True
Exit For
End If
Next lZeile
If bGefunden = True Then
Exit For
End If
Next iSpalte
Names.Add Replace(Cells(lZeile, iSpalte).Value, " ", "") & "_A" & "_test", ActiveCell
Diese Makro Sucht ab der aktiven Zelle nach oben, die Spalten von B bis E nach Zelleninhalt "Mat" durch. Dann wird z.B. der Wert "Mat 06" gefunden. In der letzen Makrozeile wird dann dieser Wert (Mat 06) mit den festen Werten "_A" und "_test" zusammengesetzt und als Name der Aktiven Zelle vergeben.
Ich möchte diese funktionalität beibehalten, nur mit dem Unterschied das statt dem Namen vergeben, der zusammengesetzte Wert in die Aktive Zelle ausgegeben wird.
Zelleninhalt ist dann wie in diesem Beispiel: Mat06_A_test
Gruß Hans

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte mit Makro auslesen und zusammensetzen
20.11.2008 13:51:00
Rudi
Hallo,
activecell= Replace(Cells(lZeile, iSpalte).Value, " ", "") & "_A" & "_test"
Gruß
Rudi
AW: Werte mit Makro auslesen und zusammensetzen
20.11.2008 14:12:00
Tino
Hallo,
vielleicht so, Ergebnis wird in Spalte F geschrieben
Sub TestNeu()
Dim Bereich As Range, tempBer As Range, ZBereich As Range

With Application
 .ScreenUpdating = False
    Set Bereich = Range("A1", Cells(Selection.Row, 1))
    
    For Each tempBer In Bereich
     Set ZBereich = Range(tempBer, Cells(tempBer.Row, 5))
     Set ZBereich = ZBereich.Find("Mat *", , xlValues, 1, 1, 1, 1, 0)
    '********************************> wird in Spalte 6 (=F) eingefügt <************************************ 
     If Not ZBereich Is Nothing Then Cells(ZBereich.Row, 6) = Replace(ZBereich, " ", "") & "_A" & "_test" '* 
    '******************************************************************************************************* 
     Set ZBereich = Nothing
    Next tempBer
 .ScreenUpdating = True
End With

End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige