Anzeige
Archiv - Navigation
328to332
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
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeichen Groß darstellen für markierten Zellenberei

Zeichen Groß darstellen für markierten Zellenberei
30.10.2003 14:09:01
Selma
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen Groß darstellen für markierten Zellenberei
30.10.2003 14:21:23
Holger Levetzow
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
AW: Zeichen Groß darstellen für markierten Zellenberei
30.10.2003 14:24:51
Holger Levetzow
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
Anzeige
AW: Zeichen Groß darstellen für markierten Zellenberei
30.10.2003 14:22:28
Andi_H
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
AW: Zeichen Groß darstellen für markierten Zellenberei
30.10.2003 14:22:29
Holger Levetzow
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
Anzeige
AW: Zeichen Groß darstellen für markierten Zellenberei
30.10.2003 14:29:06
Martin Bolleter
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
AW: Zeichen Groß darstellen für markierten Zellenberei
30.10.2003 15:01:44
Selma
Vielen Dank an Alle.....

Schöne Grüße
Selma

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige