UserForm aber wie
10.03.2017 10:15:20
Manu
ich habe da eine knifflige Aufgabe. Für mich unlösbar :-(
Ich möchte über einen CommandButton das sich eine UserForm öffnet bei dem ich meine gewünschten einträge vornehmen kann.
Was soll gemacht werden.
1.) eine neue Tabelle erstellt werden die von der Tabelle2 kopiert
2.) diese Tabelle mit einem namen versehen werden
3.) in der kopierten Tabelle sollen in G13,C15 was eingegeben werden
4.) in der Overwiev soll in B13,B7,B12,B16 dieser neuer Taballenname hinzugefügt werden.
5.) zu guter letzt soll aus der neuen Tabelle J21 in der Overview in der Spalte O, im nächsten freien Feld hinzugefügt werden.
Ich habe das mal mit dem Macro Recorder grob aufgezeichnet:
Sub Neue_Tabelle_hinzu()
' Neue_Tabelle_hinzu Makro
' Soll eine Neue Tabelle Hinzufügen und alle benötigten Daten Anfordern.
'Sheets("Test").Select
Sheets("Test").Copy Before:=Sheets(2)
Sheets("NEUE VARIANTE").Select
Sheets("NEUE VARIANTE").Move After:=Sheets(6)
Sheets("NEUE VARIANTE").Select
Sheets("NEUE VARIANTE").Name = "NEUE VARIANTE" 'beispiel Angabe
Sheets("NEUE VARIANTE").Select
Range("G13").Select
ActiveCell.FormulaR1C1 = "10000" 'beispiel Angabe
Range("C15").Select
ActiveCell.FormulaR1C1 = "20" 'beispiel Angabe
'in der Overview
Sheets("Overview").Select
Range("B13").Select 'auch in B7,B12,B16
ActiveCell.FormulaR1C1 = _
"='Tabelle2'!RC[5]+'Tabelle3'!RC[5]" '+NEW 'New in dem Fall Tabelle4 (NEUE VARIANTE) / _
/ ist ein beispiel
'um das Diagramm werte hinzuzufügen
Range("O7").Select
ActiveCell.FormulaR1C1 = "='NEW'!R[14]C[-5]"
Range("O8").Select
End Sub