Makro erweitern....drittes Zeichen

Forumthread: Makro erweitern....drittes Zeichen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Makro erweitern....drittes Zeichen

15.12.2005 15:33:59

Selma

Hallo Leute,
ich würde gern ein vorhandenes Makro erweitern und dazu brauche ich Euere Hilfe...
wenn in markierten Zellenbereich in Spalte F das dritte Zeichen des Zellinhalts ein "A" ist,
dann soll in Zelle (Spalte D) "Allgemein" eingetragen werden.
Wenn drittes Zeichen ein "S" ist, dann soll in Zelle (Spalte D) "Sonstiges" eingetragen werden.
Wie mache ich das?
Vielen Dank vorab....
Liebe Grüße
SELMA

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro erweitern....drittes Zeichen

15.12.2005 15:45:10

Andi
AW: Makro erweitern....drittes Zeichen

15.12.2005 15:47:11

UweD
AW: Makro erweitern....drittes Zeichen

16.12.2005 11:58:28

Selma
Gern geschehen... (ot)

16.12.2005 12:22:00

Andi

AW: Makro erweitern....drittes Zeichen

15.12.2005 15:45:10

Andi

Hi,
das geht so:


Sub test()
Dim c As Range
If Selection.Column <> 6 Or Selection.Columns.Count > 1 Then Exit Sub
For Each c In Selection
Select Case Mid(c.Value, 3, 1)
Case "A"
Cells(c.Row, 4).Value = "Allgemein"
Case "S"
Cells(c.Row, 4).Value = "Sonstiges"
End Select
Next c
End Sub

Schönen Gruß,
Andi

AW: Makro erweitern....drittes Zeichen

15.12.2005 15:47:11

UweD

Hallo
so...

    If Selection.Column = 6 Then ' nur wenn in SpalteF
Select Case Mid(Selection.Value, 3, 1)
Case "S"
Selection.Offset(0, -2) = "Sonstiges"
Case "A"
Selection.Offset(0, -2) = "Allgemein"
End Select
End If

Gruß UweD
(Rückmeldung wäre schön)

AW: Makro erweitern....drittes Zeichen

16.12.2005 11:58:28

Selma

Vielen Dank Andi, vielen Dank Uwe...........
Liebe Grüße
SELMA

Gern geschehen... (ot)

16.12.2005 12:22:00

Andi