Herbers Excel/VBA-Archiv
Ich brauche Hilfe....
- Ich brauche Hilfe.... von Marcus vom 16.08.2004 18:11:58
- AW: Ich brauche Hilfe.... - von Holger am 16.08.2004 18:23:58
- AW: Ich brauche Hilfe.... - von Kay am 16.08.2004 18:35:49
- Strings verketten - von Boris am 16.08.2004 18:47:46
 |
Betrifft: Ich brauche Hilfe....
von: Marcus
Geschrieben am: 16.08.2004 18:11:58
Hy, Leute,
Folgende Aufgabe:
Sagen wir mal, in Spalte A steht in den Zellen A1 bis A10 eine 10-stellige Nr.
Diese Nummern möchte ich nun auf Spalte B in die Zellen B1 bis B10 übertragen.
Aber vor die Zahl und hinter die Zahl soll ein Ausrufezeichen stehen!
Beispiel:
A1 = "1234567890" ---> B1 = "!1234567890!"
A2 = "1234567890" ---> B2 = "!1234567890!"
A3 = " " ---> B3 = " "
Leere Zellen sollen natürlich leer bleiben.
Die Formel für eine Zelle wäre: =("!"&A1&"!")
Ich bräuchte das aber als VBA-Code...
Kann mir vielleicht jemand helfen?
Vielen Dank schon mal im voraus
Marcus
 |
Betrifft: AW: Ich brauche Hilfe.... von: Holger
Geschrieben am: 16.08.2004 18:23:58
Hallo
Das kannst du mit ="!"&A1&"!" in Celle B1 lösen
Ich hoffe, das hat dir geholfen.
Gruß
Holger
| |
Betrifft: AW: Ich brauche Hilfe.... von: Kay
Geschrieben am: 16.08.2004 18:35:49
Hallo Marcus,
hier mal eine Lösung nur in ein Modul einfügen und dann müsste es klappen.
Sub Ausrufezeichen()
Dim z, spp
Dim arr(9, 0)
spp = -1
For z = 1 To 10
spp = spp + 1
If Cells(z, 1) = "" Then GoTo weiter
arr(spp, 0) = "! " & Cells(z, 1) & " !"
weiter: Next z
Range(Cells(1, 2), Cells(10, 2)) = arr
End SubKonnte ich dir weiter helfen?
Gruß
Kay
| |
Betrifft: Strings verketten von: Boris
Geschrieben am: 16.08.2004 18:47:46
Hi,
Option Explicit
Sub til()
Dim C As Range
For Each C In [a1:a10]
If C <> "" Then C.Offset(0, 1) = "!" & C & "!"
Next C
End SubGrüße Boris
| |