Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile an Tabelle mit Steuerelement

Forumthread: Zeile an Tabelle mit Steuerelement

Zeile an Tabelle mit Steuerelement
lade
Hallo,
ich möchte mit einer Befehlsschaltfläche an eine formatierte Tabelle eine Zeile an das Ende dieser Tabelle anhängen. Dabei sollen die Formatierungen der Zellen übernommen werden. Das ganze soll auch funktionieren, wenn das Tabellenblatt geschützt ist.
Leider habe ich nicht wirklich eine Ahnung wie das funktionieren kann und hoffe deswegen auf die schlauen Leute hier.
Viele Grüße!
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeile an Tabelle mit Steuerelement
23.07.2012 16:07:21
UweD
Hallo
so evtl.

Sub TT()
On Error GoTo Fehler
Dim TB1, PW$
Dim SP%, LR&
PW = "ABC" ' anpassen
Set TB1 = Sheets("Tabelle1") 'aus bestimmtem Blatt
SP = 1 'Spalte A
LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
Application.ScreenUpdating = False
ActiveSheet.Unprotect (PW)
With TB1
.Rows(LR + 1).Insert Shift:=xlDown
.Rows(LR).Copy
.Rows(LR + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect Password:=PW, DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Err.Clear 'nur bei XL 2007 benötigt
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
Gruß UweD
Anzeige
AW: Zeile an Tabelle mit Steuerelement
23.07.2012 16:15:39
UweD
Wenn man es kostequent über TB1 abfackeln möchte dann so:

Sub TT()
On Error GoTo Fehler
Dim TB1, PW$
Dim SP%, LR&
PW = "ABC" ' anpassen
Set TB1 = Sheets("Tabelle1") 'aus bestimmtem Blatt
SP = 1 'Spalte A
LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
Application.ScreenUpdating = False
With TB1
.Unprotect (PW)
.Rows(LR + 1).Insert Shift:=xlDown
.Rows(LR).Copy
.Rows(LR + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Protect Password:=PW, DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Err.Clear 'nur bei XL 2007 benötigt
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

Anzeige
AW: Zeile an Tabelle mit Steuerelement
25.07.2012 11:02:40
lade
Hallo UweD,
danke schon mal für deine Vorschläge, nur leider kenn ich mich so wenig aus, dass ich den code nicht in meiner Commandbox lauffähig bekomme.
Ich habe hier mal das Tabellenblatt um das es geht hochgeladen. Es wäre ein Traum, wenn du deinen code für die commandbox anpassen würdest bzw direkt darein schreibst. Dann kan ich es sicherlich nachvollziehen.
https://www.herber.de/bbs/user/81154.xlsm
Anzeige
AW: Zeile an Tabelle mit Steuerelement
25.07.2012 14:52:15
lade
kurzer nachtrag:
Mit beiden von deinen codes werden zeilen hinzugefügt, allerdings ohne die zellenformatierung.
Dann noch eine Frage: Wie muss der code verändert werden, dass ich für alle tabellen eines tabellenblattes mit unterschiedlichen steuerlementen zeilen hinzufügen kann?
Bzw. mit einem Steuerelement auch zeilen wieder löschen kann?
https://www.herber.de/bbs/user/81158.xlsm
Anzeige
AW: Zeile an Tabelle mit Steuerelement
27.07.2012 09:59:42
lade
Kann mir den keine weiter helfen?! :/

Forumthreads zu verwandten Themen

Steuerelement als Sub-Argument ?
Reinhold

Hallo zusammen,
ich möchte ein Steuerelement als Argument an eine Sub übergeben, um darin Eigenschaften dieses Steuerelements zu ändern.
Wa auch immer ich versuche, ich kriege das Steuerelement nicht als Objekt adressiert, sondern immer nur seine Standard-Eigenschaft...
Viele Grüße<...
15.08.2008 09:58:00
Thread-ID: 1002059
3 Beiträge
Anzeige
Kalender Steuerelement - Datum übernehmen
Thomas

Hallo alle zusammen,
habe ein Kalendersteuerelemnt im Tabellenblatt1, welches mittels Doppelklick auf eine Zelle aufgerufen wird.
Was muss ich machen, damit
a) dieser Kalender nur in den Zellen A5 - A 20 und C5 - C20 mittels Doppelcklick aufgerufen werden kann und sonst nirgends
...
18.08.2008 14:37:00
Thread-ID: 1002599
3 Beiträge
Indexierung von Steuerelementen in VBA
Steuerelementen

Hallo,
aus VB kenne ich die Vorgehensweise, dass man Steuerelemente (z.B. Labels) Indexieren kann. Man kann sie dan komfortabel über eine Schleife ansteuern.
Ein simples Beispiel zum verdeutlichen:
For i=1 to 10
label(i).text=i
next i
Die zehn Labels haben nun eine Besc...
01.09.2008 11:30:41
Thread-ID: 1006376
3 Beiträge
Datums-Format Kalendersteuerelement
BuStü

Hallo,
besteht die Möglichkeit beim Kalendersteuerelemt das Datumsformat zu ändern.
Ich benötige eigenlich nur den Monat und das Jahr. Diese sollen dann auch in die aktive Zelle übernommen werden.
MfG
Burghard
26.09.2008 22:43:07
Thread-ID: 1012763
7 Beiträge
Textinhalt eines Steuerelements
Harald

Hallo zusammen,
ich verwende TextBoxen aus dem Entwurfsmodus. Nun sind die verlinkt auf eine andere Zelle.
Kann ich eine Formatierung in der Textbox machen?
Beispiel:
Inhalt von Zelle A1= "10°" und dargestellter Inhalt von Textbox= "10"
Wie kann ich dies 1:1 in die Textbo...
30.09.2008 18:10:00
Thread-ID: 1013461
2 Beiträge
Anzeige
Kalender-Steuerelement
Herbert

Hallo Exporten,
in einer Tabelle möchte ich gern einen Kalender einfügen. Leider fehlt in den Steuerelementen das Kalender-Steuerelement. Bisherige Versuche es zu installieren (Office CD - Features hinzufügen - Excel -Add Ins) scheiterten.
Was mache ich falsch?
Bin für jede Hilfe da...
01.10.2008 15:43:03
Thread-ID: 1013664
5 Beiträge
VBA Steuerelementefelder
OliverBreith

Hallo zusammen,
gibt es in VBA Steuerelementefelder, wie es diese in VB6.0 gibt?
Ich muß eine programmieren, in der ich in Abhängigkeit vom User unterschiedlich viele TextBoxen unterbringen muß.
Wie kann ich so etwas realisieren
Vielen Dank für eure Hilfe
Oliver Breith
03.10.2008 20:55:00
Thread-ID: 1014088
3 Beiträge
Steuerelement ohne TabIndex?
Henner

Hi,
ich möchte in meiner UF einer TextBox keinen Tabindex geben, damit eben diese NICHT mit der Tabulatortaste erreicht bzw angewählt werden kann. Allerdings ist die Zuweisung eines Tabindex augenscheinlich zwingend erforderlich, eine leere Eingabe wird automatisch korrigiert.
Wie kann...
06.10.2008 13:27:31
Thread-ID: 1014423
2 Beiträge
Summe mit RefEdit-Steuerelement
TOM

Hallo zusammen
Wie kann ich auf meinem Userform mit einem RefEdit-Steuerelement erreichen, dass mir die Summe ausgegeben wird der Zellen die ich per RefEdit ausgewählt habe?
Besten Dank für einen Tipp
Gruss
TOM
30.10.2008 15:55:35
Thread-ID: 1020646
6 Beiträge
Kalendersteuerelement
Bernd

Hallo,
Ich habe in einem Formular zwei Kalendersteuerelemente eingebaut.
Wenn ich im Initialize-Ereignis dort ein Datum einsetzen will kommt eine Fehlermeldung, bei offenem Formular funktioniert es.
Was mach ich falsch?
Und noch eine Frage. Ich verbinde per VBA drei Zellen einer...
19.11.2008 16:22:00
Thread-ID: 1026098
6 Beiträge
Otionsbuttons (Steuerelemente-Toolbox) in Tabelle
Bertram

Hallo zusammen,
bitte nicht gleich sagen 'Bei deinem Level solltest du das wissen':-)
Normalerweise benutze ich immer Userforms, aber dieses mal brauch ich zwingend Optionbuttons in der Tabelle selbst. Nun habe ich 20 Optionbuttons aus der Steuerelemente-Toolbox eingefügt und das würde...
25.11.2008 10:59:00
Thread-ID: 1027619
10 Beiträge
Steuerelement Listbox1 in tabelle wird in VBA n
Mike

Hallo
Ich habe in einer Tabelle aus der Symbolleiste Steuerelemente ein Listenfeld in eine Tabelle eingefügt. Der Objektname lautet "Listbox1".
Über ein Makro will ich nun diese Listbox füllen.
Listbox1.additem "Text"
wenn ich das Makro ausführen wird die Listbox1 jedoc nicht ge...
28.11.2008 11:59:00
Thread-ID: 1028645
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige