Office: WENN/UND-funktion im VBA

Hallo,

ich bin's mal wieder..

Ich habe folgendes Problem:

und zwar habe ich eine WENN/UND - Funktion mit 9 Verschachtelungen.
Dies geht schlecht mit der Formel, da nur sieben erlaubt sind und das + kann ich nicht gebrauchen, da er nichts zusammen zählen soll.

Ich habe in der Spalte G einen Buchstaben (H,L oder M) und in der Spalte H eine Zahl (1,2 oder 3). Diese sollen in Spalte I zusammengefasst, ja nach Anzeige in G und H, angezeigt werden, z.b. Spalte I "H3".

Ich hoffe das ist soweit verständlich.

Das ganze soll nun über ein Makro automatisch laufen und das bekomm ich einfach nicht hin.

Wie sieht der Code aus?
Kann mir da jemand weiterhelfen??

Viele Grüße
Ela

 

Hallo!

Reicht dir da nicht eine Verkettung?
A1: Manno
B1: Meter
C1: =A1&B1 ergibt MannoMeter

 

Hallo,

ja super, hab ich auch schon gefunden!!!

Range("I7") = Range("G7") & "" & Range("H7")

Brett vorm Kopf .... :roll:

Jetzt hab ich nur noch ein problem: wie füge ich das ganze in eine Schleife?? Dies soll natürlich unendlich laufen.

viele grüße
ela

 

Hallo!

Das glaube ich dir nicht... :-)

Diese Schleife sucht alle Zellen in Spalte G, die einen festen Eintrag haben, und verkettet sie mit Spalte H in Spalte I:

Code:

Sub test()
Dim zelle As Range
For Each zelle In Columns(7).SpecialCells(xlCellTypeConstants)
zelle.Offset(0, 2) = zelle & zelle.Offset(0, 1)
Next zelle
End Sub

 

das klappt super DANKE!!!!

aber jetzt hab ich noch ein problem... sorry...

ich habe das in dem arbeitsblatt eingefügt, in der hoffnung er macht das automatisch ... macht er aber nicht.... grummel

 

Dafür könntest du das ganze in ein Worksheet_Change-Ereignis einbinden:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
Application.EnableEvents = False
For Each zelle In Columns(7).SpecialCells(xlCellTypeConstants)
zelle.Offset(0, 2) = zelle & zelle.Offset(0, 1)
Next zelle
Application.EnableEvents = True
End Sub

Aber warum willst du darauf eigentlich mit VBA los??
Wenn du's per Formel machst (=G7&H7), kannst du die Formel doch großzügig runterkopieren. Solange die Zellen leer sind, bleibt doch auch die Verkettung leer...

 

das hatte ich auch schon, problem was ich hatte, die felder sollten sich dementsprechend farbig hinterlegen und das ging dann leider nicht so einfach.... deswegen ...*seufz*

ich habe noch was vergessen ....
das ganze spielchen soll ein paar spalten weiter nochmal gestartet werden .... als O7 & P7 in Q7 auch wieder fast unendlich ;-) ...

hab schon versucht zu erweitern, klappt natürlich nicht so wie ich mir das vorstelle .... :-(

 

Na, das kann doch nun nicht mehr schwer sein:

For Each zelle In Columns(7).SpecialCells(xlCellTypeConstants)

Warum 7?
Weil G der 7. Buchstabe im Alphabet ist, also Spalte G die 7. Spalte ist.

Und das ganze jetzt für Spalte O?
Hmmm, knifflig, knifflig... :lol: :lol:

 

jau, hab ich schon probiert, klappt irgendwie nicht...
aber ich bleibe dran und melde mich morgen noch mal...

aber erstmal DANKE!!!!


viele Grüße
ela

 

hello,

also ich bekomm es einfach nicht angepasst!!

:-(

 

Wie sieht denn dein bisheriger Versuch aus?

 

hallo,

also ich hab es mal so probiert:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
Dim zelle1 As Range
Application.EnableEvents = False
For Each zelle In Columns(7).SpecialCells(xlCellTypeConstants)
zelle.Offset(0, 2) = zelle & zelle.Offset(0, 1)
Next zelle1.Columns(14).SpecialCells(xlCellTypeConstants)
zelle.Offset(0, 2) = zelle & zelle.Offset(0, 1)
Next zelle
Application.EnableEvents = True

End Sub

dann hab ich es mal mit exit for probíert, geht auch nicht :-(

 

Die beiden Schleifen müssen hintereinander:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
Application.EnableEvents = False
For Each zelle In Columns(7).SpecialCells(xlCellTypeConstants)
zelle.Offset(0, 2) = zelle & zelle.Offset(0, 1)
Next zelle
For Each zelle In Columns(14).SpecialCells(xlCellTypeConstants)
zelle.Offset(0, 2) = zelle & zelle.Offset(0, 1)
Next zelle
Application.EnableEvents = True
End Sub

 

oh mann, das hatte ich auch schon, aber es hat nicht geklappt, weil ich spalten ausgeblendet habe und somit die falsche zeile angezogen habe ...
*brettvormkopf*....

ich hab jetzt aber wieder ein anderes problem... mein chef hätte gern statt m2, wie es jetzt angezeigt wird 2m.

so geht das aber nicht, wenn ich umsetze zu

For Each zelle In Columns(7).SpecialCells(xlCellTypeConstants)
zelle.Offset(0, 2) = zelle & zelle.Offset(0, 1)

so

For Each zelle In Columns(8).SpecialCells(xlCellTypeConstants)
zelle.Offset(0, 1) = zelle & zelle.Offset(0, 2)

dann hab ich immer nur die zahl aus spalte 8 stehen ...
sorry, ich bin auch schon total genervt.

 

zelle.Offset(0, 2) = zelle & zelle.Offset(0, 1)
wird zu
zelle.Offset(0, 2) = zelle.Offset(0, 1) & zelle