bei klick namen in zelle uebertragen (langer code)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: bei klick namen in zelle uebertragen (langer code)
von: roland_k
Geschrieben am: 24.03.2005 21:24:08
hi zusammen
habe da ne beispieldatei geschrieben
https://www.herber.de/bbs/user/20141.xls
ich wollte gerne den dahinterliegenden code verkuerzen oder ev die problematik anders aufbauen
bitte kein doppelklick oder combobox
so wie im beispiel sollte das laufen aber der code wird unheimlich lang
danke wenn sich das jemand anschaut
gruss roland_k

Bild

Betrifft: AW: bei klick namen in zelle uebertragen (langer code)
von: Beni
Geschrieben am: 24.03.2005 21:55:34
Hallo Roland,
Gruss Beni

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zelle As Range
'+++++++++++++++namen eintragen+++++++++++++++++++++++
For nz = 2 To 8 Step 2
For ns = 1 To 13 Step 3
 Set zelle = Cells(nz, ns)
        If Not Intersect(Range(Target.Address), zelle) Is Nothing Then
        If Cells(3, 16) = "" Then
        Cells(3, 16).Value = zelle
    Else:
    If Cells(3, 22).Value = "" Then
    Cells(3, 22).Value = zelle
            If Cells(3, 16) = Cells(3, 22) Then
            MsgBox "name schon an platz1"
            Range("V3:AA4").Select
            Selection.ClearContents
            End If
    Else
    If Cells(3, 28).Value = "" Then
        Cells(3, 28).Value = zelle
            If Cells(3, 16) = Cells(3, 28) Then
            MsgBox "name schon an platz1"
            Range("AB3:AG4").Select
            Selection.ClearContents
            End If
                        If Cells(3, 22) = Cells(3, 28) Then
            MsgBox "name schon an platz2"
            Range("AB3:AG4").Select
            Selection.ClearContents
                                End If
                            End If
                        End If
                     End If
                End If
            Set zelle = Nothing
Next ns
Next nz
End Sub

Bild

Betrifft: AW: sehr kleiner Code
von: RAnton
Geschrieben am: 24.03.2005 22:20:03
Hallo Roland
einfacher Code, wenn du die Hintergrundfarbe der Zelle als Indiz nimmst

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zelle As Range
Dim i As Integer
'+++++++++++++++namen eintragen+++++++++++++++++++++++
If Target.Interior.ColorIndex = 44 And Target.Resize(1, 1).Value <> "" Then
For i = 0 To 12 Step 6
    If Cells(3, 16 + i).Value = "" Then
        Cells(3, 16 + i).Value = Target.Value
        GoTo weiter
    End If
Next
    MsgBox "Alles schon belegt"
weiter:
End If
End Sub

Gruß
Anton
Bild

Betrifft: genial ...aber ??
von: roland_k
Geschrieben am: 25.03.2005 09:36:40
hi anton
sehr gut das funkts aber welche farben sind masgebend
ausgangszelle die ich klicke oder empflängerzelle??
danke gruss roland_k
Bild

Betrifft: sehr gute antwort danke beni**frohe ostern**
von: roland_k
Geschrieben am: 25.03.2005 09:39:12
hi beni
danke das funkt sehr gut ...
frohe ostern
 Bild

Beiträge aus den Excel-Beispielen zum Thema "bei klick namen in zelle uebertragen (langer code)"