Zeichen Groß darstellen für markierten Zellenberei

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zeichen Groß darstellen für markierten Zellenberei
von: Selma
Geschrieben am: 30.10.2003 14:09:01

Hi Leute,

für den markierten Zellenbereich möchte ich z.B. 14-te Zeichen in Zelle groß haben.

Ich habe mi es so vorgestellt:

1. Zellen markieren
2. Makro starten
3. Zahl eingeben für Zeichenstelle die Groß sein soll. (Input-Box?)
4. OK

Wie kann ich es per Makro lösen???

Ich bedanke mich im Voraus....

Gruß
Selma

Bild


Betrifft: AW: Zeichen Groß darstellen für markierten Zellenberei
von: Holger Levetzow
Geschrieben am: 30.10.2003 14:21:23

versuche es mal so:

Sub gross()
s = Application.InputBox("Nummer der Stelle", , , , , , , 1)
For Each cell In Selection
    If Len(cell >= i) Then
       t = Left(cell, s - 1) & UCase(Mid(cell, s, 1)) & Right(cell, Len(cell) - s)
       cell.Value = t
    End If
Next
End Sub

Holger


Bild


Betrifft: AW: Zeichen Groß darstellen für markierten Zellenberei
von: Holger Levetzow
Geschrieben am: 30.10.2003 14:24:51

kleiner Fehler:

Sub gross()
s = Application.InputBox("Nummer der Stelle", , , , , , , 1)
For Each cell In Selection
    If Len(cell) >= s Then
       t = Left(cell, s - 1) & UCase(Mid(cell, s, 1)) & Right(cell, Len(cell) - s)
       cell.Value = t
    End If
Next
End Sub

Holger


Bild


Betrifft: AW: Zeichen Groß darstellen für markierten Zellenberei
von: Andi_H
Geschrieben am: 30.10.2003 14:22:28

Hi Selma,

etwa so:


Sub BuchstabenGrossInString()
On Error GoTo 1:
Dim i As Integer
Dim str As String
Dim c As Range
i = InputBox("Bitte STelle eingeben")
For Each c In Selection
str = c.Value
l = Len(str)
Mid(str, i, 1) = UCase(Mid(c, i, 1))
str2 = Left(str, i - 1) & Mid(str, i, 1) & Right(str, l - i)
c = str2
Next
1:
End Sub


Gruß
Andi


Bild


Betrifft: AW: Zeichen Groß darstellen für markierten Zellenberei
von: Holger Levetzow
Geschrieben am: 30.10.2003 14:22:29

versuche es mal so:

Sub gross()
s = Application.InputBox("Nummer der Stelle", , , , , , , 1)
For Each cell In Selection
    If Len(cell >= i) Then
       t = Left(cell, s - 1) & UCase(Mid(cell, s, 1)) & Right(cell, Len(cell) - s)
       cell.Value = t
    End If
Next
End Sub

Holger


Bild


Betrifft: AW: Zeichen Groß darstellen für markierten Zellenberei
von: Martin Bolleter
Geschrieben am: 30.10.2003 14:29:06

Hallo Selma

versuchs mal mit folgendem Code:


Sub Gross()
Dim N%, i%, Zelle As Range, Lg%
N = InputBox("Welche Stelle GROSS ?")
For Each Zelle In Selection
Lg = Len(Zelle.Value)
If Lg >= N Then
Zelle.Value = Mid(Zelle.Value, 1, N - 1) & UCase(Mid(Zelle.Value, N, 1)) & Mid(Zelle.Value, N + 1, Lg)
End If
Next
End Sub



Gruss
Martin


Bild


Betrifft: AW: Zeichen Groß darstellen für markierten Zellenberei
von: Selma
Geschrieben am: 30.10.2003 15:01:44

Vielen Dank an Alle.....

Schöne Grüße
Selma


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zeichen Groß darstellen für markierten Zellenbere"