Ausgabe ohne Ausführungszeichen

Sub Zuordnung() Dim Ueberschrift As Variant ActiveSheet.Name = "Original" Sheets.Add Before:=Sheets("Original") ActiveSheet.Name = "Ueberschriften" Ueberschrift1 = "Überschrift.............1" Ueberschrift2 = "Überschrift.............2" Ueberschrift3 = "Überschrift.............3)" Ueberschrift4 = "Überschrift.............4" 'weiter bis 58 For i = 1 To 58 With Sheets("Ueberschriftnummern") .Range("A" & i).Value = i Ueberschrift = "Ueberschrift" & i 'die Ausgabe erfolgt jetzt mit Ausführungszeichen also so "Ueberschrift" 'ich möchte aber Ueberschrift ohne Ausführungszeichen um in Spalte B die Überschriten _ einzutragen. .Range("B" & i).Value = Ueberschrift End With Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zuordnung() Dim Ueberschrift As Variant ActiveSheet.Name = "Original" Sheets.Add Before:=Sheets("Original") ActiveSheet.Name = "Überschriften" Ueberschrift1 = "Blumenkohlsuppe" Ueberschrift2 = "Spargelcremsuppe" Ueberschrift3 = "Tomatensuppe" Ueberschrift4 = "Himbeereis" 'weiter bis 58 For i = 1 To 58 With Sheets("Überschriften") .Range("A" & i).Value = i 'also die Zahlen 1 bis 58 Ueberschrift = "Ueberschrift" & i 'in Spalte B soll jetzt Blumenkohlsuppe, Spargelcremsuppe, _ etc.. eingetragen werden .Range("B" & i).Value = Ueberschrift End With Next End Sub

Hey SP,
ich gklaube, jetzt habe ich es kapiert !
Das funktioniert nicht mit den Variablennamen "Überschrift1" etc., sondern mit der indizierten Variable Überschrift(1) etc. - das nennt man ein ARRAY !
Hier ein Beispiel :

VBA-Code:

Sub Zuordnung()
Dim arUeberschrift(1 To 58) As String

    ActiveSheet.Name = "Original"

    Sheets.Add Before:=Sheets("Original")

    ActiveSheet.Name = "Überschriften"

    arUeberschrift(1) = "Blumenkohlsuppe"

    arUeberschrift(2) = "Spargelcremsuppe"

    arUeberschrift(3) = "Tomatensuppe"

    arUeberschrift(4) = "Himbeereis"
'weiter bis 58
For i = 1 To 58
With Sheets("Überschriften")

          .Range("A" & i).Value = i 'also die Zahlen 1 bis 58

          .Range("B" & i).Value = arUeberschrift(i)
End With
Next
End Sub

					 Danke das wars............
				
					Sonnenpeter
				
Aber Hallo NoNet,

recht herzlichen Dank.

Gruß Sonnenpeter

					 Eine etwas andere Variante
				
					NoNet
				
Hallo Peter,

hier noch eine etwas andere/schnellere Variante des Makros - insbesondere, wenn zuvor nicht klar ist, wieviele "Überschriften" (58 oder mehr oder weniger) es gibt. Der code ist dann auch nsgesamt etwas kürzer :

VBA-Code:
Sub Zuordnung2()
Dim arUeberschrift 'Ohne Typenangabe, da ARRAY !!

    ActiveSheet.Name = "Original"

    Sheets.Add(Before:=ActiveSheet).Name = "Überschriften"

    arUeberschrift = Array("Blumenkohlsuppe", "Spargelcremsuppe", _

        "Tomatensuppe", "Himbeereis", "Sahne", "Radieschen", _

        "Kartoffeln", "etc.") 'Jede weitere Zeile des ARRAYs mit _ verbinden !
With Sheets("Überschriften")

        .[A1] = 1

        .[A1].AutoFill .[A1].Resize(UBound(arUeberschrift)), Type:=xlFillSeries

        .Range("B1").Resize(UBound(arUeberschrift)) = Application.Transpose(arUeberschrift)
End With
End Sub

Vielleicht kann es ja auch noch jemand gebrauchen...

Gruß, NoNet

					 AW: Eine etwas andere Variante
				
					Sonnenpeter
				
Hallo nochmal,

Danke, diese Variante werde ich wohl auch verwenden.

Gruß SP

					 AW: Achso !!! - Du meinst ein ARRAY !
				
					bernd
				
hallo NoNet,

frage-könnte man den teil

Ueberschrift1 = "Blumenkohlsuppe"

Ueberschrift2 = "Spargelcremsuppe"

usw..

nicht auch mit einer schleife füllen?

denn diese texte in eine tabelle zu schreiben ist doch einfacher und variabler-oder?

gruß bernd

					 Sicher, wenn man das so will...! Gruß owT
				
					Luc:-?
				
:-?

					 Dachdecker od.Zimmermann? oT
				
					bernd
				
:-)

					 OT: Letztere Arbeit erledigen die Dachdeck(er)...
				
					Luc:-?
				
...(-Firmen) gleich mit, tragen ja auch alle die gleichen Cordwesten und "Sombreros". Auf den Unterschieden bestehen nur die Traditionalisten oder die Letzteren, wenn's um Feinheiten geht wie bspw die Wanderjahre, das machen nur "echte" Zimmerleute. Wir "Nichtprofis" verwechseln das gern...

Gruß Luc :-?

PS: Man muss ja nun wirklich nicht jeden Thread lesen, Bernd! Mach ich doch auch nicht... ;-)

					 AW: Ausgabe ohne Ausführungszeichen
				
					bernd
				
hallo,

vorweg..

gib vor der zeile Sub Zuordnen()

Option Explicit ein

Variablen-sind nicht definiert

gruß bernd

					 OT: "Creme oder Krem", that's the question! orT
				
					Luc:-?
				
Gruß Luc :-?

Hallo Peter,
hier noch eine etwas andere/schnellere Variante des Makros - insbesondere, wenn zuvor nicht klar ist, wieviele "Überschriften" (58 oder mehr oder weniger) es gibt. Der code ist dann auch nsgesamt etwas kürzer :

VBA-Code:

Sub Zuordnung2()
Dim arUeberschrift 'Ohne Typenangabe, da ARRAY !!

    ActiveSheet.Name = "Original"

    Sheets.Add(Before:=ActiveSheet).Name = "Überschriften"

    arUeberschrift = Array("Blumenkohlsuppe", "Spargelcremsuppe", _

        "Tomatensuppe", "Himbeereis", "Sahne", "Radieschen", _

        "Kartoffeln", "etc.") 'Jede weitere Zeile des ARRAYs mit _ verbinden !
With Sheets("Überschriften")

        .[A1] = 1

        .[A1].AutoFill .[A1].Resize(UBound(arUeberschrift)), Type:=xlFillSeries

        .Range("B1").Resize(UBound(arUeberschrift)) = Application.Transpose(arUeberschrift)
End With
End Sub

Vielleicht kann es ja auch noch jemand gebrauchen...

Gruß, NoNet

					 AW: Eine etwas andere Variante
				
					Sonnenpeter
				
Hallo nochmal,

Danke, diese Variante werde ich wohl auch verwenden.

Gruß SP

					 AW: Achso !!! - Du meinst ein ARRAY !
				
					bernd
				
hallo NoNet,

frage-könnte man den teil

Ueberschrift1 = "Blumenkohlsuppe"

Ueberschrift2 = "Spargelcremsuppe"

usw..

nicht auch mit einer schleife füllen?

denn diese texte in eine tabelle zu schreiben ist doch einfacher und variabler-oder?

gruß bernd

					 Sicher, wenn man das so will...! Gruß owT
				
					Luc:-?
				
:-?

					 Dachdecker od.Zimmermann? oT
				
					bernd
				
:-)

					 OT: Letztere Arbeit erledigen die Dachdeck(er)...
				
					Luc:-?
				
...(-Firmen) gleich mit, tragen ja auch alle die gleichen Cordwesten und "Sombreros". Auf den Unterschieden bestehen nur die Traditionalisten oder die Letzteren, wenn's um Feinheiten geht wie bspw die Wanderjahre, das machen nur "echte" Zimmerleute. Wir "Nichtprofis" verwechseln das gern...

Gruß Luc :-?

PS: Man muss ja nun wirklich nicht jeden Thread lesen, Bernd! Mach ich doch auch nicht... ;-)

					 AW: Ausgabe ohne Ausführungszeichen
				
					bernd
				
hallo,

vorweg..

gib vor der zeile Sub Zuordnen()

Option Explicit ein

Variablen-sind nicht definiert

gruß bernd

					 OT: "Creme oder Krem", that's the question! orT
				
					Luc:-?
				
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausgabe ohne Ausführungszeichen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread