Hallo Zusammen

habe mir eine Adressverwaltung die ich im Internet gefunden habe für meine zwecke umgebaut. Die ist VBA basiert und daten werden über ein UserForm eingegeben und gelöscht.

meine Fragen ich...

1.)... habe mehrer tabellen Blätter habe es auch hinbekommen das das UserForm mir die Namen mit in das 2te tabellenblatt einfügt über diesen Code

With Worksheets("Anwesenheitsliste")

' Datensatz neu speichern

letzteZeile = .Range("A65536").End(xlUp).Offset(1, 0).Row .Cells(letzteZeile, 1) = .Cells(letzteZeile - 1, 1) + 1 .Cells(letzteZeile, 3) = TextBox1.Text .Cells(letzte_Zeile, 2) = ComboBox1.Text

End With

So wird das auch von dem original gemacht

jetzt hätte ich aber auch gerne das wenn ich auf "Datensatz löschen" drücke die namen aus dem tabellenblatt auch wieder raus gelöscht werden bei dem originalen klappt das über diesen Code

If ComboBox1.Text = "" Then MsgBox "Keine Daten zum Löschen verfügbar !" Exit Sub Else

'Datensatz löschen

letzte_Zeile = Worksheets("Adressenliste").Range("A65536").End(xlUp).Row

If Not rngID Is Nothing Then a = rngID + 1 Else a = Range(rngFind.Address).Row End If

If MsgBox(" Datensatz wirklich löschen ?", vbYesNo) = vbNo Then Exit Sub Else Range(Cells(a, "B"), Cells(a, "T")).Delete shift:=xlShiftUp Cells(letzte_Zeile, "A").ClearContents

End If

End If

ClearAll
UserForm_Initialize
ComboBox1.SetFocus

End Sub

kriege es aber leider nicht hin diesen Code so zu ändern das die Daten beim klicken auf "Datensatz Löschen" mit aus der Tabelle2 gelöscht werden bitte um hielfe

1. kann man einen Button in dem UserForm zeitlich begernzen z.B. das man daten nur vom 1.12 - 31.1 löschen kann?

   würde mich über Hilfe freuen

   gruß Kai

Guten Tag zusammen

ich arbeite gerade an einer Statistik für meine Jugendfeuerwehr bei Excel

jetzt habe ich das Problem das in Tabellen Blatt 5 Formeln sind die Bezüge auf Zellen im Tabellenbatt 1 haben.

Habe es jetzt soweit hinbekommen das Ich den Fehler"#Bezug" nicht mmehr habe wenn ich in Tabellenblatt 1 Daten lösche. Die Formel sieht jetzt so aus:

=WENN(UND(INDIREKT("Adressenliste!R9")="Ausgetreten";INDIREKT("Adressenliste!Q9")="Männlich";INDIREKT("Adressenliste!G9")="Seelscheid");1;0)

jetzt ist meine Frage wie bekomme ich es hin das wenn ich die Formel runterziehe z.B. da wo jetzt R9 steht R10 R11 R12 usw. kommt quasi das sich die Formel automatisch anpasst.

Würde mich freuen wenn mir einer weiterhelfen kann

Gruß Kai