Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Überschrift nach VBA UserForm Eintrag

Überschrift nach VBA UserForm Eintrag
22.11.2015 01:28:03
Rudolf
Hallo Zusammen
Ich habe eine UserForm gebaut wo man neue Einträge erstellen kann, bestehende Daten ändern usw.
Mit meiner Userform wird jedesmal wenn man einen neuen Kunden erfasst oder ein geändert wird eine Sortierung durchgeführt und zwar so, dass immer der Verantwortliche Mitarbeiter (siehe Beispiel Bild) untereinander aufgeführt wird.
Nun möchte ich zusätzlich, damit ich die übersicht beibehalte wenn es viele Einträge sind oberhalb jeder Zeile eines Verantwortlichen (Spalte A) eine Überschrift mit seinem Namen.
Auf dem nachfolgenden Beispiel habe ich es aufgeführt.
Mit welchem Code kann ich das bewerkstelligen?
Ich möchte den Code in meiner UserForm im Speichern COmmand, damits immer mit der Sortierung gleich diese Überschrift übernimmt.
Userbild
Herzlichen Dank und Grüsse
Rudi

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Überschrift nach VBA UserForm Eintrag
22.11.2015 07:16:12
Matthias
Hi
Für Dein gezeigtes Bsp. so:
Option Explicit
Sub rudolf()
Dim x&
Application.ScreenUpdating = False
For x = Cells(Rows.Count, 1).End(xlUp).Row To 4 Step -1
If Cells(x - 1, 1)  Cells(x, 1) And Cells(x, 1)  "" And Cells(x - 1, 1)  "" Then
Rows(x).Insert Shift:=xlDown
With Cells(x, 2)
.Value = Cells(x + 1, 1).Value
Cells(x, 1).Resize(, 3).Interior.Color = vbYellow
.Font.Bold = True
End With
End If
Next
End Sub
https://www.herber.de/bbs/user/101713.xlsm
Ich habe hier mal die Spalte(B) statt Spalte(A) benutzt
Gruß Matthias

Anzeige
AW: Überschrift nach VBA UserForm Eintrag
22.11.2015 21:58:56
Rudolf
Hallo lieber Matthias
Vielen Dank.
Ja, das kommt dem schon sehr nahe.
Wenn ich nun aber einen neuen Eintrag habe z.B. als Hans oder Christian erscheint eine neue Überschrift so dass ich nun zweimal Christian habe.
Kann man dass Codetechnisch so gestalten, dass alle neuen oder editierte Einträge mit einem Namen unter der gleichen Überschrift angezeigt werden?
Vielen Dank und Grüsse
Rudi

AW: Überschrift nach VBA UserForm Eintrag
23.11.2015 23:01:47
Rudolf
Jemand eine idee? :)

AW: Überschrift nach VBA UserForm Eintrag
24.11.2015 06:49:32
Rudolf
Jemand eine idee? :)

AW: Überschrift nach VBA UserForm Eintrag
24.11.2015 07:04:08
Rudolf
Jemand eine idee? :)

AW: Überschrift nach VBA UserForm Eintrag
24.11.2015 07:19:20
Matthias
Hallo Rudolf
dann stell doch einfach vor dem Einfügen eines neuen Eintrages den Urzustand wieder her!
Dim x&
Application.ScreenUpdating = False
For x = Cells(Rows.Count, 1).End(xlUp).Row To 4 Step -1
If Cells(x, 1) = "" Then Rows(x).Delete
Next
https://www.herber.de/bbs/user/101760.xlsm
Gruß Matthias

Anzeige
AW: Überschrift nach VBA UserForm Eintrag
25.11.2015 19:27:36
Rudolf
Zum Code:
Geht es auch ohne ein zweiter Button "zurücksetzen"?
Die verschiedenen Anwender sollen einen neuen Kunden oder bestehenden Kunden editieren können in der Userform, sodass mit dem "click" auf speichern dieser Prozess automatisch stattfindet in einem Schritt anstatt zwei wie in deiner File aufgeführt (übrigens vielen Dank für Deine Zeit!!!) :)
Grüss Rudi

AW: Überschrift nach VBA UserForm Eintrag
27.11.2015 14:32:13
Matthias
Hallo
Hättest Du Deinen Beitrag auf "offen" gestezt, hätte ich Deine erneute Nachfrage eher bemerkt!
sodass mit dem "click" auf speichern dieser Prozess automatisch stattfindet in einem Schrit
Dann schreib doch einfach beide Code's hintereinander in das Speichern-Ereignis
In DieseArbeitsmappe 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'erst zurücksetzen
'dann neu sortieren
End Sub
Gruß Matthias

Anzeige
AW: Überschrift nach VBA UserForm Eintrag
24.11.2015 23:23:48
Rudolf
Jemand eine idee? :)

lies doch einfach mal Deine Antworten ... owT
25.11.2015 01:22:49
Matthias

AW: lies doch einfach mal Deine Antworten ... owT
25.11.2015 19:24:03
Rudolf
das muss ein bug gewesen sein.... habe die Antwrt nur einmal gepostet :)

305 Forumthreads zu ähnlichen Themen

Ab aktiver Datei speichern und VBA-Code löschen?
Selma

Hallo zusammen,
ich möchte nur das Arbeitsblatt "Vorlage" über das Dialog "Speichern unter" speichern. Als Dateiname soll Name der aktive Datei_ + Weitergabe.xls vorgeschlagen werden.
Beispiel für Dateiname: Berechnungsblatt_2008_Weitergabe.xls
In der gespeicherte Datei sollen erstm...
25.10.2008 11:15:00
Thread-ID: 1019168
5 Beiträge
Anzeige
Date&Timer Picker bei Vista
Biker7

Hi Ihr Leser,
Zu Hause benutze ich XP und habe eine Datei mit denm Date&Timer Picker
weitergegeben, da wird Vista benutzt. Ich bekomme nicht mal die MSCOMCT2.OCX
in das System32 kopiert obwohl ich Adminrechte habe, damit kann ich sie ja auch
nicht regiestrieren.
Gibt es...
18.03.2009 20:15:33
Thread-ID: 1061604
5 Beiträge
Zus.fassen Datenblättern; inkl. Formeln+VBA-Code
Fred

Hallo liebe Wissende,
...ich reibe mich seit mehrern Tagen an einem Problem in Exel. Ich werde etwas mehr dazu schreiben müssen, da schwer in 2 Sätzen darstellbar.
Ausgangspunkt: mehrere Exeldateien mit vielen Tabellenblättern (...die ich nicht erstellt habe...).
Ziel: aus allen Dat...
18.06.2009 12:51:27
Thread-ID: 1082547
4 Beiträge
Anzeige
Application.OnTime läuft auch bei anderen Dateien
Roland

Hallo,
Durch eine Steuerelement angestupst wird meine Datei alle 15 Minuten gespeichert.
Das Modul sieht so aus:
Sub Makro1() On Error Resume Next Application.OnTime EarliestTime:=datA, Procedure:="Makro2", Schedule:=False datA = Now + CDate("0:15:00") ' Hi...
06.11.2009 02:22:33
Thread-ID: 1114851
4 Beiträge
VBA-Code von Userform anpassen (DTPicker)
Userform

Hallo Excel-Forum Community,
Leider stoße ich bei der Anpassung des VBA-Codes einer „UserForm“ gerade an meine Grenzen. Vielleicht findet ihr ein paar Minuten um euch die Beispieldatei des nachfolgenden Links anzusehen?
https://www.herber.de/bbs/user/69747.xls
Ich habe einen sehr...
26.05.2010 21:15:00
Thread-ID: 1158924
8 Beiträge
Datei ohne VBA Code speichern
Holger,

Liebes Forum,
schon wieder ein Problem. Heute hängt es an lauter Kleinigkeiten.
Ich kopiere ein Tabellenblatt und speichere dieses als neue Arbeitsmappe ab.
Soweit, so gut klappt das.
Leider ist in dieser Arbeitsmappe der ganze VBA Code auch drin.
Wie kann ich das vermeiden,...
14.01.2011 11:31:34
Thread-ID: 1195629
5 Beiträge
Datetime Picker in Excel 2010 Makro
MollocH

Hi zusammen,
ich bin in der Situation ein paar Makros bzw Userforms anpassen zu müssen.
Leider gibt es ja den Datetime Picker mit Office 2010 nicht mehr.
Jeder versuch das ganze durch registrieren der entsprechenden OCX usw sind fehlgeschlagen. Das ding will einfach nicht mehr aufta...
24.01.2011 14:00:07
Thread-ID: 1197037
5 Beiträge
Date and Time Picker beim erneuten Datei öffnen de
Ronald

Hallo Profis,
ich habe ein großes Problem. Ich nutze in einer Exceldatei den Date and Time Picker (MSCOMCTL2.ocx). Kann auch ein solches Steuerelement neu einfügen und es funktioniert wie gewünscht. Wenn ich die Datei dann schließe und erneut öffne, ist das Element nicht mehr funktionstüch...
09.02.2011 09:41:57
Thread-ID: 1199760
4 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
18
4
3
3
3
7
4
4
3
3
6
14
30
4
1
1
2
5
5
1
4
4
2
3