Hallo Peter Feustel o.a.

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

Betrifft: Hallo Peter Feustel o.a. von: Erich Müller
Geschrieben am: 12.02.2005 14:32:08

ich habe noch eine Ergänzungsfrage.
Im Blatt "Zahlungen" kann in einzelnen Spalten ausser "x" oder nichts, auch "===" stehen.
Diese Zellen sollen bei der Auflistung im TB "Mieter" nicht berücksichtigt werden.
Hilfst Du mir nochmals ?
Sportplatz bei dem Wetter ? Nein !
Gruß EM


https://www.herber.de/bbs/user/17923.xls

Bild


Betrifft: AW: Hallo Peter Feustel o.a. von: Peter Feustel
Geschrieben am: 12.02.2005 14:37:56

Hallo Erich,

tausch den ganzen If-Block gegen den hier folgenden aus:



'
'     es wird geprüft, ob in der Spalte B ein Punkt eingetragen worden ist
'     dann erst wird geprüft, ob in der Monats-Spalte ein x eingetragen ist
'     Mieter mit '===' als Kennzeichen werden nicht berücksichtigt.
'
         If WksZahlng.Cells(iZeile, 2).Value = "." Then ' Zeile mit Punkt ?
            If WksZahlng.Cells(iZeile, (3 + iMonat)).Value <> "===" Then
               If LCase(WksZahlng.Cells(iZeile, (3 + iMonat)).Value) = "x" Then
                  WksMieter.Cells(iZeile_b, 1) = WksZahlng.Cells(iZeile, 3).Value
                  iZeile_b = iZeile_b + 1
                Else
                  WksMieter.Cells(iZeile_o, 3) = WksZahlng.Cells(iZeile, 3).Value
                  iZeile_o = iZeile_o + 1
               End If
            End If
         End If
      Next iZeile
    Else
      MsgBox "es wurde kein gültiger Monat eingegeben!" & vbLf & vbLf & _
             " Abbruch des Makros.", 16, "   ungültige Monatseingabe"
      Exit Sub
   End If

     Code eingefügt mit Syntaxhighlighter 2.5


Gruß Peter


Bild


Betrifft: AW: Phantastisch von: Erich Müller
Geschrieben am: 12.02.2005 15:13:55

Hallo Peter,
ich habe höchsten Respekt vor Euch VBA-Choryphäen. Dieses Level werde ich wohl nie erreichen. Schade ...
Ich verneige mich in Ehrfurcht !

Gruß EM


Bild


Betrifft: AW: Phantastisch von: Peter Feustel
Geschrieben am: 12.02.2005 15:38:51

Hallo Erich,

nur keine übertriebene Ehrfurcht - jeder kann VBA lernen, z. B. durch Ansehen der Lösungen hier im Forum. - Nimm dir die Zeit dazu, es geht!

Als Anlage eine etwas sicherere Version, mit erleichtertem Zugang per Button auf
dem Mieter-Blatt.

Gruß Peter

https://www.herber.de/bbs/user/17927.xls


Bild


Betrifft: AW: es wird immer einfacher von: Peter Feustel
Geschrieben am: 12.02.2005 16:52:49

Hallo Erich

bei dem Wetter ist Excel richtig wärmend, und so wird deine Anwendung immer anwendungsfreundlicher.
Klick mal auf den Button im Mieter-Blatt.

Gruß Peter

https://www.herber.de/bbs/user/17933.xls


Bild


Betrifft: Klasse von: Erich Müller
Geschrieben am: 12.02.2005 18:41:14

Hallo Peter,

was soll ich dazu sagen. Du hast Dich scheinbar in einen "VBA-Excelrausch" gesteigert.
Zu viel des Guten. Danke Dir.

Gruß EM


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Letzte Spalte in Liste löschen"