Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Platzhalter und Variable verknüpfen


Betrifft: Platzhalter und Variable verknüpfen von: Burghard
Geschrieben am: 25.09.2019 17:33:36

Hallo,

ich möchte eine Variable mit einem Platzhalter verknüpfen. Krieg ich aber nicht hin.

...
Dim N As String
Dim z As Integer
N = InputBox(prompt:=vbCr & vbCr & vbCr & vbCr & vbCr & "Hier den Namen eingeben", Title:="Name", xpos:="6250", ypos:="4200")
If N = "" Then GoTo nix

For z = 2 To 100 Step 1

If Cells(z, 6).Value <> N And Cells(z, 7).Value <> N Then
' Gewünscht etwa so: If Cells(z, 6).Value <> "*N*" And Cells(z, 7).Value <> "*N*"...
Cells(z, 2).EntireRow.Hidden = True
End If
Next z
...

Funktioniert so aber nicht. Hilfe wäre nett.

Grüße
Burghard

  

Betrifft: AW: Platzhalter und Variable verknüpfen von: onur
Geschrieben am: 25.09.2019 17:46:52

"ich möchte eine Variable mit einem Platzhalter verknüpfen" ???

Wikipedia:
Variable
Variable (zu variabel von lateinisch variare ‚verändern‘, ‚schwanken‘) steht für:

Variable (Logik), formalsprachlicher Platzhalter für unterschiedliche Ausdrücke einer logischen Art bestimmter Weise
Variable (Mathematik), Platzhalter für Unbekannte/Unbestimmte/Veränderliche in Formulierungen bzw. Formeln der Mathematik


  

Betrifft: AW: Platzhalter und Variable verknüpfen von: Werner
Geschrieben am: 25.09.2019 19:06:19

Hallo Burghard,

teste mal.

Public Sub aaa()
Dim N As String, z As Integer

N = InputBox(prompt:=vbCr & vbCr & vbCr & vbCr & vbCr _
& "Hier den Namen eingeben", Title:="Name", xpos:="6250", ypos:="4200")

If N = vbNullString Then Exit Sub

Application.ScreenUpdating = False

For z = 2 To 100
    Rows(z).Hidden = Not Cells(z, 6) Like "*" & N & "*" Or Not Cells(z, 7) Like "*" & N & "*"
Next z
End Sub
Gruß Werner


  

Betrifft: AW: Platzhalter und Variable verknüpfen von: Burghard
Geschrieben am: 27.09.2019 22:22:16

Hallo Werner,

vielen Dank für Deinen Lösungsvorschlag. Funktioniert leider bei meiner Excel-Version 2000 nicht.
Muss ich wohl mit leben, dass mein Excel nur exakte Begriffe filtert (ohne Platzhalter). Versuch macht klug.

Nochmals danke und Grüße
Burghard


  

Betrifft: AW: Platzhalter und Variable verknüpfen von: Luschi
Geschrieben am: 25.09.2019 19:13:34

Hallo Burghard,

bei mir klappt das so:

Option Explicit
Option Compare Text 'wichtig, damit Klein- und Großbuchstaben gleichwertig sind

Sub test1()
    Dim N As String
    Dim z As Integer
    
    N = InputBox(prompt:=vbCr & vbCr & vbCr & vbCr & vbCr & "Hier den Namen eingeben", _
        Title:="Name", xpos:="6250", ypos:="4200")
    If N = "" Then GoTo nix
    N = "*" & Trim(N) & "*"
    For z = 2 To 100 Step 1
    
    If Cells(z, 6).Value Like N And Cells(z, 7).Value Like N Then
       ' Gew?nscht etwa so: If Cells(z, 6).Value <> "*N*" And Cells(z, 7).Value <> "*N*"...
       Cells(z, 2).EntireRow.Hidden = True
    End If
    Next z
    
nix:
End Sub
Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Platzhalter und Variable verknüpfen von: Burghard
Geschrieben am: 27.09.2019 22:25:36

Hallo Luschi,

vielen Dank für Deinen Lösungsvorschlag. Funktioniert leider bei meiner Excel-Version 2000 nicht.
Muss ich wohl mit leben, dass mein Excel nur exakte Begriffe filtert (ohne Platzhalter). Versuch macht klug.

Nochmals danke und Grüße nach "klein-Paris". Ist das nun Düsseldorf oder Leipzig oder ...?
Burghard


  

Betrifft: AW: Platzhalter und Variable verknüpfen von: Luschi
Geschrieben am: 25.09.2019 19:13:44

Hallo Burghard,

bei mir klappt das so:

Option Explicit
Option Compare Text 'wichtig, damit Klein- und Großbuchstaben gleichwertig sind

Sub test1()
    Dim N As String
    Dim z As Integer
    
    N = InputBox(prompt:=vbCr & vbCr & vbCr & vbCr & vbCr & "Hier den Namen eingeben", _
        Title:="Name", xpos:="6250", ypos:="4200")
    If N = "" Then GoTo nix
    N = "*" & Trim(N) & "*"
    For z = 2 To 100 Step 1
    
    If Cells(z, 6).Value Like N And Cells(z, 7).Value Like N Then
       ' Gew?nscht etwa so: If Cells(z, 6).Value <> "*N*" And Cells(z, 7).Value <> "*N*"...
       Cells(z, 2).EntireRow.Hidden = True
    End If
    Next z
    
nix:
End Sub
Gruß von Luschi
aus klein-Paris


Beiträge aus dem Excel-Forum zum Thema "Platzhalter und Variable verknüpfen"