Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA/ Makros Schaltflächen mit Funktion
#1
Hallo liebe Excelprofis,

ich bin gerade dabei eine Liste zu erstellen, in der es 3 Funktion über 3 Schaltflächen gibt. Da ich das erste Mal die VBA nutze, fehlen mir da noch viele Kenntnisse und Fachbegriffe.

1. Drucken --> das klappt über VBA soweit
2. Filtern --> ich will nach Zeilen mit Inhalt filtern, und die Zeilen ohne Inhalt ausblenden. Bei Zahlenwerten klappt es, nur bei Buchstaben wird trotzdem die Zeile ausgeblendet. Wie kann ich den Code erweitern damit er auch in den B Spalten die Buchstabenwerte berücksichtigt werden? Die Filtergrundlage ist die B Spalte und ich alles was grau hinterlegt ist in der Excel, muss nach dem Filtern mit angezeigt werden.
3. Reset --> Zeigt mir alle ausgeblendeten Zeilen wieder an, klappt also.

Ich habe mal meine Excel angehangen. Ich hoffe ihr könnt mir helfen.

Beste Grüße

Captn


Angehängte Dateien
.xlsm   Kabelliste5_NEU_20150601.xlsm (Größe: 52,43 KB / Downloads: 8)
Antwortento top
#2
Hallo captn,

eine Möglichkeit wäre z.B., die Bedingung auf die Ascii-Codes der Zeichen > 9 zu erweitern. Die Zahl 9 hat glaube die 57. Allerdings müsstest Du hier zuvor noch prüfen, ob in der Zelle was steht - sonst läuft das in einen Fehler.

If (this > 0 And this < 1000) Or Asc(this) > 57 Then
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#3
Hallo schauan,

danke für die schnelle Hilfe. Aber kannst du mir noch sagen was du mit "...prüfen, ob in der Zelle was drin steht" meinst?
Antwortento top
#4
Kann mir niemand weiterhelfen?
Huh
Antwortento top
#5
Hallo,

nicht optimal aber seinen Zweck sollte es erfüllen

Code:
Private Sub CommandButton2_Click()
'    Range("B9:B242").Select
    For Each rw In Range("B9:B242").Rows
    this = rw.Cells(1).Value
'    If this > 0 And this < 1000 Then
    If Not IsEmpty(rw.Cells(1).Value) Then
        rw.EntireRow.Hidden = False
    Else
        rw.EntireRow.Hidden = True
    End If
    Next rw
End Sub
Gruß Stefan
Win 7 / Office 2007
Antwortento top
#6
Hallo captn,

sorry, bin in den letzten Tagen und auch noch bis ins Wochenende etwas im Stress, renoviere gerade mit meinem Sohn nach der Arbeit

Eine Prüfung kann z.B. mit IF und der Angabe einer Bedingung erfolgen, das steht ja im Ausgangscode mit IF ... AND ... Then
AND ist dabei eine logische Funktion, die Bedingungen verknüpfen kann. Daneben gibt es noch andere, z.B. OR, NOT usw.

Mit Asc(this) ermittelt Excel, was das erst Zeichen des Inhalts der Variable this für einen ASCII-Wert hat. Ist Deine Zelle allerdings leer, dann steht in der Variable this auch nur ein Leerstring und der hat kein erstes Zeichen. Du musst also, wie ich bereits schrieb, vor dieser Prüfung eine weitere schreiben, da der Leerstring zu einem Fehler führt.

Also z.B.
Code:
'Prüfen auf Leerstring
If this <>"" Then
    'Prüfen auf Wertebereich 1 bis 999 und Buchstabe am Anfang
    If (this > 0 And this < 1000) Or Asc(this) > 57 Then

    ...

    'Ende Prüfen auf Wertebereich 1 bis 999 und Buchstabe am Anfang
    End If
'Ende Prüfen auf Leerstring
End If
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste