Office - Word, Excel und Co. 9.744 Themen, 41.408 Beiträge

Verfolgung starten Optionen

Excel: Mittels Userform (VBA) Daten in eine Tabelle einfügen (mit Rahmen)

minbari / 33 Antworten / Flachansicht Nickles

Moin,

ich bin gerade dabei, eine Excel-Tabelle zu erstellen.
Mittels einer Eingabemaske (Userform) werden die Daten in eine Tabelle eingefügt.

Ich habe soweit alles fertig. Das Einzige, was noch nicht funktioniert ist, dass die eingetragenen Daten in eine Zelle mit Rahmen eingefügt werden.

Es geht hier speziell um den Rahmen!

Folgenden Code verwende ich:

Private Sub Abbrechen_Button_Click()

' Eingabefenster schließen

Unload Eingabemaske

End Sub


Private Sub Eintragen_Button_Click()

' Eingaben der Maske in das Fahrtenbuch übernehmen

Dim StartZeile&
Dim Ws As Worksheet
Set Ws = ActiveSheet
StartZeile = Ws.Cells(65536, 2).End(xlUp).Row + 1
Ws.Cells(StartZeile, 2) = CDate(Text_Datum.Text)
Ws.Cells(StartZeile, 3) = Zweck
Ws.Cells(StartZeile, 4) = Fahrzeug
Ws.Cells(StartZeile, 5) = Begleitung
Ws.Cells(StartZeile, 6) = Bemerkung

' nach Datum sortieren

Range("B6:F3300").Sort Key1:=Range("B7")

' Eingabemaske schließen

Unload Eingabemaske

End Sub


Private Sub UserForm_Initialize()

'Automatischer Eintrag Datum

Eingabemaske.Text_Datum.Value = Date

'Dropdownmenü Begleitung

Eingabemaske.Begleitung.RowSource = "Daten!$A$2:$A$8"

'Dropdownmenü Fahrzeug

Eingabemaske.Fahrzeug.RowSource = "Daten!$C$2:$C$15"

'Dropdownmenü Bemerkung

Eingabemaske.Bemerkung.RowSource = "Daten!$E$2:$E$9"

'Dropdownmenü Zweck der Fahrt

Eingabemaske.Zweck.RowSource = "Daten!$G$2:$G$32"


End Sub

Ich benutze Excel 2016.


Betreffen würde es B6:F6, wobei dies natürlich veränderlich ist, da immer neue Einträge eine Zeile tiefer ansetzen.

Habt Ihr eine Idee?

Danke für die Hilfe!

minbari

bei Antwort benachrichtigen
Wie soll die Linienart sein? Soll um jede Zelle ein Rahmen sein, oder nur um die Gesamttabelle? Bei letzteren könntest Du ... mumpel1
Verstehe ich das richtig? Wenn die Zellen ohne Rahmen ausgestattet sind, funktioniert das Einfügen der Werte per VBA. ... mawe2
Nein, das Eintragen der Daten funktioniert einwandfrei. Ich möchte jetzt nur noch, dass die beschriebenen Zellen mit ... minbari
Ich würde die Tabelle vorher schon mit den Rahmen versehen, dann muss man dafür keinen extra VBA-Code schreiben. mawe2
Genau das wollte ich nicht. Das wird eine Jahrestabelle mit geschätzten 3000-4000 Eintragungen. minbari
Hallo minbari, warum fügst du die Rahmen, nicht per bedingter Formatierung ein? Formel zur Ermittlung der zu ... hddiesel
Egal, ob das 4000 Zeilen sind oder 40000: Die Rahmen setzt man einmal und dann war s das. Wenn es definitiv per VBA ... mawe2
Man nutzt m.E. eher eine intelligente Tabelle. Damit wird, neben den Formeln, auch der Rahmen automatisch erweitert. mumpel1
Ja, meinetwegen. Aber was wäre das Problem, wenn die betreffenden Spalten von vornherein komplett mit Rahmen ausgestattet ... mawe2
Das vermisse ich sogar beim Calculator von LO. - Jedenfalls käme mir das durchaus zu Pass. - Kann mir allerdings auch ... winnigorny1
Man kann doch mit Libre Office Calc die Rahmen setzen, die man benötigt. Was genau vermisst Du da? mawe2
Weil man dann wieder beim Drucken aufpassen muss. Wenn Du 4000 Zeilen mit Rahmen versiehst, aber nur in 100 Zeilen Daten ... mumpel1
Wo wäre das Problem, ist es denn so schwierig, beim Drucken dem Drucker mitzuteilen, dass er nur die Seiten 1 - xxx ... winnigorny1
Hallo winni, aufpassen kann der PC übernehmen, indem man den Druckbereich vor dem Drucken per Makro festlegt, dann gibt es ... hddiesel
Tja - noch besser als über die Druckoptionen vor dem Losdrucken..... Aber egal. Das unterstreicht ja nur noch, was ich ... winnigorny1
Dass sowas heutzutage noch gedruckt werden könnte, hatte gar nicht mehr im Blick. Ich drucke solches Zeug schon seit ... mawe2
Hallo mumpel1, darum mein Vorschlag mit der bedingten Formatierung, so löse ich das schon viele Jahre per Hand über einen ... hddiesel
Genau danach habe ich gesucht!!!! Dankeschön!!!! minbari
Hallo minbari, Danke für deine Rückmeldung. hddiesel
Ist zwar schon ewig her, dass ich mal VBA programmiert habe, aber ich würde eher mit einer Range arbeiten, statt alle ... Borlander
Da wirst Du bei den 5 Zellen, die hier formatiert werden, keinerlei Performanceunterschied feststellen. Die Schleife war ... mawe2
Hatte das so verstanden, dass da alle betroffenen Zeilen formatiert werden sollen. Borlander
In dem Moment sind nur 5 Zellen betroffen. mawe2
Eine Sache ist mir allerdings gerade aufgefallen: Wenn ich auf drucken gehe, möchte er 33 Seiten drucken, obwohl nur Seite ... minbari
Alle Zeilen unterhalb des relevanten Bereichs, in dem Inhalte drin stehen markieren, dann Zellen löschen. Das selbe ... mawe2
Ja, da hätte ich auch selbst drauf kommen können... die einfachsten Wege sind immer noch die besten... Dankeschön! minbari
Ich habe jetzt alle Zeilen ab Zeile 9 gelöscht. Dadurch möchte er jetzt die 33 leeren Seiten nicht mehr drucken. Soweit ... minbari
hddiesel minbari „Ich habe jetzt alle Zeilen ab Zeile 9 gelöscht. Dadurch möchte er jetzt die 33 leeren Seiten nicht mehr drucken. Soweit ...“
Optionen

Hallo minbari,

um Dir zu helfen, sollte man deine Tabelle kennen.

Der Druckbereich geht von Spalte A bis zur Spalte ?

Die erste Druckzeile ist ?

Zur Ermittlung der letzten Druckzeile, steht der letzte Wert in der Spalte ?

Hier als Beispiel, ein einfach anzupassendes Makro für den Druckbereich, die entsprechenden Werte deiner Tabelle anpassen.

Sicher geht es einfacher, aber als Beispiel sollte es genügen.

Sub Druckbereich_Spalten_Zeilen()
    Dim intRows As Long

    With ActiveSheet
        Application.ScreenUpdating = False

        ' Maximale Datenzeile festlegen z.B. letzter Wert in der Spalte 2
        intRows = .Cells(Rows.Count, 2).End(xlUp).Row

        ' Druckbereich und Seitenumbrüche löschen.
        .PageSetup.PrintArea = ""
        .ResetAllPageBreaks

        ' Druckbereich neu festlegen Spalten A1 bis z.B. G & intRows
        .PageSetup.PrintArea = "$A$1:$G$" & intRows

        ' Events und Bildschirmaktualisierung einschalten.
        Application.ScreenUpdating = True

    End With

End Sub

Windows 10 Pro 64-Bit, 22H2: MS Office Pro Plus 2016 32-Bit: Mein Motto: Leben und leben lassen: Gruss Karl
bei Antwort benachrichtigen
Evtl. musst Du einen fehlerhaft definierten Druckbereich löschen. mawe2
Ich hatte den Druckbereich überhaupt nicht definiert. minbari
Moin, ich habe den Druckbereich gelöscht. Jetzt möchte er nicht mehr 33 leere Seiten löschen. Allerdings erweitert sich ... minbari
Ja, so kenne ich das auch. Ich kann es Dir leider nicht sagen. Was passiert denn, wenn Du die Tabelle als PDF exportierst? ... mawe2
Erledigt!! Ich habe den Druckbereich gelöscht und per Formel einen dynamischen Druckbreich eingefügt! Jetzt läuft es! ... minbari