Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > VBA - Neues Sheet erzeugen
Normale Version: VBA - Neues Sheet erzeugen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3 4 5 6 7

alti89

05.11.2015, 10:11
okay das läuft !

-  frage, kann man den zurück setz button so machen, das man direkt bei klick drauf wieder in die Pool liste kommt.
und einfach unbenennt in zurück, so das der user gar nicht mitbekommt das das der zurück setzt button ist,

und die tabelle so formatieren das man gar nich groß was anderes anklicken kann..

Gruß
Sascha

Rabe

05.11.2015, 11:08
Hi Sascha,

(05.11.2015, 10:11)alti89 schrieb: [ -> ]-  frage, kann man den zurück setz button so machen, das man direkt bei klick drauf wieder in die Pool liste kommt.
und einfach unbenennt in zurück, so das der user gar nicht mitbekommt das das der zurück setzt button ist,

und die tabelle so formatieren das man gar nich groß was anderes anklicken kann..

ja, klar, geht beides:
Zum Sichern der Tabelle alle Zellen, die nicht geändert werden dürfen, auf gesperrt setzen und die Tabelle dann "Blatt schützen".

Du mußt dann den Blattschutz zum Eintragen neuer Aufträge aufheben und anschließend wieder setzen. Geht ebenfalls per Makro.
Private Sub CommandButton1_Click()

  With Sheets("Sheet1")

     .Unprotect                                                               'Blattschutz aufheben 

     .Activate

     .Range("$A:$F").AutoFilter Field:=1                                      'Filter zurücksetzen 

     loLetzteA = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)   'letzte belegte Zeile in Spalte A (1) 

     loZeile = loLetzteA + 1

     .Range("$A" & loZeile) = Me.TextBox1.Value                               'Artikelnummer in neue Zeile eintragen 

     .Range("$B" & loZeile) = Me.TextBox2.Value                               'Auftrag eintragen 

     .Range("$C" & loZeile) = Me.TextBox3.Value & " - " & Me.TextBox4.Value   'Reparaturzeit eintragen 

     .Range("$D" & loZeile) = Me.TextBox5.Value                               'Kunde eintragen 

     .Range("$E" & loZeile) = Me.TextBox6.Value                               'Ort eintragen 

     .Range("$F" & loZeile) = Me.TextBox7.Value                               'Bemerkung eintragen 

     .Protect                                                                 'Blattschutz setzen 

  End With

  strArtikel = ""

  Me.TextBox1.Value = ""

  Unload Me

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Benenne Deine Pool-Tabelle um, statt der " nimm (), dann ergänze das Makro hinter dem Button
Private Sub CommandButton1_Click()

  With Sheets("Sheet1")

     .Unprotect                                                   'Blattschutz aufheben 

     .Range("$A:$F").AutoFilter Field:=1                          'Filter zurücksetzen 

     .Protect                                                     'Blattschutz setzen 

  End With

  Sheets("Demogeräte (Pool)").Activate

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Das Protect und Unprotect muß auch in die Makros zum Filtern rein.
Sub Historie()

  ' 

  ' Historie Makro 

  ' 

  '   Dim strArtikel As String 

  Dim rng As Range

  ' 

  strArtikel = ActiveCell.Value

  With Sheets("Sheet1")

     .Unprotect                                                    'Blattschutz aufheben 

     .Range("$A:$F").AutoFilter Field:=1                           'Filter zurücksetzen 

     Set rng = .Range("A:A").Find(strArtikel)

     If rng Is Nothing Then

        userform1.Tag = strArtikel

        userform1.Show

     Else

        .Activate

        '         .Range("$A:$F").AutoFilter Field:=1                          'Filter zurücksetzen 

        loLetzteA = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)   'letzte belegte Zeile in Spalte A (1) 

        .Range("$A$3:$F" & loLetzteA).AutoFilter Field:=1, Criteria1:=strArtikel   'Filter setzen 

     End If

     .Protect                                                                 'Blattschutz setzen 

  End With

  strArtikel = ""

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Rabe

05.11.2015, 11:25
(05.11.2015, 11:08)Rabe schrieb: [ -> ]ja, klar, geht beides:
Zum Sichern der Tabelle alle Zellen, die nicht geändert werden dürfen, auf gesperrt setzen und die Tabelle dann "Blatt schützen".

vielleicht so:
[attachment=3168]

alti89

05.11.2015, 11:31
Heart Heart Heart Heart Heart Heart Heart Heart Heart Heart 

Perfekt, so much Danke !!!

.. so nun was hab ich jezz großartig dabei gelernt , außer Strg + v zu bedienen :20: 

- mir fehlen die Grundladen, wie / wo lern ich die ? ich weiss meist was ich will.. nur nicht wie ich es einbauen könnte :(
hab ihr da tutorials etc ?

Rabe

05.11.2015, 11:54
Hi Sascha,

(05.11.2015, 11:31)alti89 schrieb: [ -> ].. so nun was hab ich jezz großartig dabei gelernt , außer Strg + v zu bedienen :20: 

- mir fehlen die Grundladen, wie / wo lern ich die ? ich weiss meist was ich will.. nur nicht wie ich es einbauen könnte :(
hab ihr da tutorials etc ?

indem Du hier im Forum die Themen verfolgst, die Beispiele nachbaust und Dir die Makros anschaust und überlegst, warum wird das so programmiert, was bewirkt welcher Makro-Befehl hier.
Wenn Du etwas nicht verstehst, dann nachfragen.
So habe ich es gelernt und lerne immer dazu. Manches ist mir zu hoch und ich kann mir das nie merken, dann suche ich im Forum nach nem Stichwort und vollziehe es nach, kopiere es in meine Datei und passe den Code an.

alti89

05.11.2015, 12:06
ich versuch gerade das in meine richtige tabelle zumbauen..

ich verzweifel schon an den command buttons, das die das Richtige machen :D

Nachtrag : die 2 Command Buttons für " neuen Auftrag " und " zurück zum Pool " laufen,
nur den mit Historie anzeigen.. der öffnet mir auch immer das Fenster zum Eintragen

Rabe

05.11.2015, 13:17
Hi,

(05.11.2015, 12:06)alti89 schrieb: [ -> ]nur den mit Historie anzeigen.. der öffnet mir auch immer das Fenster zum Eintragen

den Button brauchst Du eigentlich gar nicht, Du kannst auch in die Artikel-Zelle doppelklicken.

Die Eingabemaske kommt nur, wenn die Artikelnummer in der Liste in Sheet1 noch nicht vorhanden ist.

alti89

05.11.2015, 15:02
Hey,

also beim Klick auf den Button " Historie anzeigen" kommt bei mir die Userform. auch wenn ich ein Gerät wähle das es gibt und der Filter nicht drinn ist :(

- Doppelklick in die Zelle geht leider auch nicht bei mir :22: irgendwo ist noch der Wurm drinne

Rabe

05.11.2015, 16:05
Hi Sascha,

(05.11.2015, 15:02)alti89 schrieb: [ -> ]also beim Klick auf den Button " Historie anzeigen" kommt bei mir die Userform. auch wenn ich ein Gerät wähle das es gibt und der Filter nicht drinn ist :(

- Doppelklick in die Zelle geht leider auch nicht bei mir :22: irgendwo ist noch der Wurm drinne

dann ist in Deiner Originaldatei was anders als in der Beispieldatei.

Welches Makro wird bei Klick auf "Historie anzeigen" ausgeführt?
Was steht im Modul des Tabellenblattes "Pool" bei Worksheet_BeforeDoubleClick:

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Call Historie
End Sub

Hier das allgemeine Modul:
Modul mdl_Artikel_anzeigen
Option Explicit 
 
Sub Historie() 
   ' 
   ' Historie Makro 
   ' 
   Dim rng As Range 
   ' 
   strArtikel = ActiveCell.Value 
   With Sheets("Sheet1") 
      .Unprotect                                                    'Blattschutz aufheben 
      .Range("$A:$F").AutoFilter Field:=1                           'Filter zurücksetzen 
      Set rng = .Range("A:A").Find(strArtikel) 
      If rng Is Nothing Then 
         userform1.Tag = strArtikel 
         userform1.Show 
      Else 
         .Activate 
         loLetzteA = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)   'letzte belegte Zeile in Spalte A (1) 
         .Range("$A$3:$F" & loLetzteA).AutoFilter Field:=1, Criteria1:=strArtikel   'Filter setzen 
      End If 
      .Protect                                                      'Blattschutz setzen 
   End With 
   strArtikel = "" 
End Sub 
 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Modul mdl_Variablen
Option Explicit 
 
Public strArtikel As String 
Public i As Integer 
Public loLetzteA As Long 
Public loZeile As Long 
 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

alti89

06.11.2015, 07:10
Morgen.. ohoh

Repaired Records: Drawing from /xl/drawings/drawing1.xml part (Drawing shape)

Excel found unreadable content..

das ist jezz schlecht oder :22: :22:

Thumps_down
Seiten: 1 2 3 4 5 6 7
Clever-Excel-Forum > Office-Anwendungen > Excel > VBA - Neues Sheet erzeugen