Menü
An- und Abmelden
Partner / Links
|
Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.
Nachrichten - EbyAS
Seiten: [1]
1
« am: August 14, 2019, 10:46:29 Vormittag »
Hallo, Excel Fortgeschritten VBA-KnowHow- : Mittelmäßig Da solltest Du aber wissen, dass es bei VBA und Excel eine Type Variant existiert! Dieser kann ein String (Du Text) oder Integer (Numeric) sein und annehmen. Also kann Excel auch mit Text rechnen weil intern eine sogenannte Typumwandlung statt findet. Einzige Möglichkeit in die Zelle ein Alpha- oder Sonderzeichen voranstellen.
2
« am: Mai 27, 2019, 11:44:58 Vormittag »
Hallo Michel, also jetzt kannst Du verschiedene Zeilen in Tabelle2 ein- bzw. ausblenden. Ich habe dieses mal Kommentare rein geschrieben. Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Boolean If Not Intersect(Target, Range("D4:D8")) Is Nothing Then 'zunächst prüfen ob die Eingabe in Zelle D4 bis D8 erfolgte If Target.Value = "Erledigt" Then 'wurde Erledigt oder Offen eingegeben? X = False 'wenn Erledigt dann sollen Zeilen eigeblendet werden ElseIf Target.Value = "Offen" Then X = True 'wenn Offen dann sollen Zeilen ausgeblendet werden End If Select Case Target.Row 'in welcher Zeile erolgte Eingabe Case 4 'in Zeile 4 ' Hier muss noch die Zeile die aus/eingeblendet werden soll angegeben werden! Tabelle2.Rows(4).EntireRow.Hidden = X ' die Rows(4) Angabe muss evtl. noch angepasst werden! Case 5 'in Zeile 5 Tabelle2.Rows(5).EntireRow.Hidden = X ' die Rows(5) Angabe muss evtl. noch angepasst werden! Case 6 'in Zeile 6 Tabelle2.Rows(6).EntireRow.Hidden = X ' die Rows(6) Angabe muss evtl. noch angepasst werden! Case 7 'in Zeile 7 Tabelle2.Rows(7).EntireRow.Hidden = X ' die Rows(7) Angabe muss evtl. noch angepasst werden! Case 8 'in Zeile 8 Tabelle2.Rows (8).EntireRow.Hidden = X ' die Rows (8) Angabe muss evtl. noch angepasst werden! End Select End If End Sub
Falls Du etwas nicht verstehst dann frage halt. Ist ja ok.
3
« am: Mai 27, 2019, 10:58:26 Vormittag »
Hallo Michel, aber so ganz langsam solltest Du Dein ganzes Vorhaben hier erklären, damit wir nicht am Ende mehrere Wochen/Monate hier Statement's tauschen müssen.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D4:D8")) Is Nothing And Target.Value = "Erledigt" Then Tabelle2.Rows(4).EntireRow.Hidden = False ElseIf Not Intersect(Target, Range("D4:D8")) Is Nothing And Target.Value = "Offen" Then Tabelle2.Rows(4).EntireRow.Hidden = True End If End Sub
ODER könnte es sein das Du auch noch verschiedene Zeilen aus- einblenden willst?
4
« am: Mai 25, 2019, 15:05:59 Nachmittag »
Hallo Michel, Diese Aufrufe dürfen nur einmal in jeder Tabelle sehen! Man verbindet das in einem Aufruf:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$4" And Target.Value = "Erledigt" Then Tabelle2.Rows(4).EntireRow.Hidden = False elseIf Target.Address = "$D$4" And Target.Value = "Offen" Then Tabelle2.Rows(4).EntireRow.Hidden = True End If End Sub
5
« am: Mai 23, 2019, 16:00:44 Nachmittag »
Hallo Michel, also wenn garnichts passiert wird wohl das Ausführen von Makros nicht erlaubt sein. Dann musst Du natürlich diese Freigabe erst ausführen. In Tabelle1 habe ich Dir einige Bilder eingefügt Optionen - Trust center Makroeinstellungen.
Dann müsste nach eingabe in D4 (gelbe Zelle) von "Erledigt" wird in Tabelle2 die Zeile 4 eingeblendet. Die muss natürlich vorher ausgeblendet sein!
6
« am: Mai 22, 2019, 13:55:08 Nachmittag »
Hallo Michel, ich habe leider keine Nachricht aus diesem Forum bekommen das Du geantwortest hast. Jetzt durch Zufall gesehen. Ich habe Dir eine Beispielmappe angefügt.
7
« am: Mai 12, 2019, 08:01:55 Vormittag »
Hallo Michel, diesen Code in Tabelle1 (Klassenseite)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$4" And Target.Value = "Erledigt" Then Tabelle2.Rows(4).EntireRow.Hidden = False End If End Sub Gruß Armin
8
« am: März 11, 2019, 07:36:39 Vormittag »
Hallo, habe gerade bemerkt, dass ich noch einen Fehler im Code hatte. Vorversion in die Tonne schmeißen.
9
« am: März 10, 2019, 18:28:07 Nachmittag »
Hallo, eine komfortable Variante lässt sich mit VBA realisieren. Falls Fragen sind melde Dich bitte.
10
« am: Januar 29, 2019, 10:45:37 Vormittag »
Hallo, geht schon aber nur mit VBA. Und dann brauch man die beiden Sheets wenn Du das nicht selbst schafftst.
11
« am: Januar 23, 2019, 08:27:39 Vormittag »
Hallo Eduard, Sorry, aber genau das ist ja das Problem das Deine „Lösung“ sehr aufwendig bzw. umständlich zu vollenden ist. Trotzdem viel Erfolg.
12
« am: Januar 22, 2019, 16:04:49 Nachmittag »
Hallo Eduard, wenn ich mir Dein Sheet anschaue, oh man, da hast Du Dir etwas vorgenommen. Das ist ja extrem aufwendig. Ich würden das anders realisieren. Aber natürlich per VBA und Userform dann reduziert man den Aufwand. Falls Du Interesse hast lass es mich wissen. Siehe Bilder.
13
« am: Januar 18, 2019, 12:04:26 Nachmittag »
Hi, wie Du schon gelesen hast mansches geht und mansches auch nicht. Eine Kontrolle der Adresse ob selbige schon vorhanden ist, ist zwar möglich ABER: Wehe ein kleiner Schreibfehler (es reicht ein Leerzeichen) und der Herr Computer sagt nichts weil für Ihn nicht gleich. Man kann jedoch alles über Eingabemasken erledigen, das ist etwas aufwendiger aber dort hat man die Möglichkeit so etwas zu prüfen. Übrigens sollte jede Adresse eine ID bekommen. Anfänger sehen oft nicht diese Notwendigkeit um später gegen die Wand zu fahren. Eine einfache Möglichkeit Adressdaten zu speichern habe ich Dir im Anhang angefügt. Aber es erfolgt dabei keine Kontrolle auf Doppelnamen. Es ist sowieso ein Problem es soll ja zum Beispiel mehr als 500.000 Schmidt‘s in Deutschland geben. Dabei garantiere ich Dir sind x-Doppel auch incl. Vornamen.
14
« am: Dezember 25, 2018, 15:40:08 Nachmittag »
Hallo, ja das ist ja genau richtig! Was soll daran falsch sein?
Seiten: [1]
|