Hi,
bin nicht wirklich fit in VBA aber hoffe ihr
Habe 3 Zellen in Excel.
Wenn in den Zellen bestimmte Wörter stehen soll in der 4 Zelle ein neuer Wert automatisch geschrieben werden.
Bekomme einfach nicht drei Zellen abgefragt.
Sollte so sein
If ("a1") Sonne And ("b1") König And ("c1") France Then ("D1") = "Sonnenkönig France"
bin nicht wirklich fit in VBA aber hoffe ihr
Habe 3 Zellen in Excel.
Wenn in den Zellen bestimmte Wörter stehen soll in der 4 Zelle ein neuer Wert automatisch geschrieben werden.
Bekomme einfach nicht drei Zellen abgefragt.
Sollte so sein
If ("a1") Sonne And ("b1") König And ("c1") France Then ("D1") = "Sonnenkönig France"
Quellcode
- Sub InhaltChecken2222()
- Dim strName As String
- If Sheets("Blatt1").Cells(1, 1).Value = "Sonnen" Then
- ElseIf Sheets("Blatt1").Cells(1, 2).Value = "König" Then
- ElseIf Sheets("Blatt1").Cells(1, 3).Value = "France" Then
- End If
- strName = Application.InputBox("Name eingeben")
- Else
- Exit Sub
- End If
- MsgBox strName
- End Sub
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Address = "$D$1" Then
- Application.EnableEvents = False
- If Target = "Sonnen König France"" Then Target = "France 4 ever"
- Application.EnableEvents = True
- End If
- End Sub