Microsoft Excel

Herbers Excel/VBA-Archiv

Ich brauche Hilfe....

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 Sub


Konnte 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 Sub


Grüße Boris