Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Daten in Tabelle schreiben
21.08.2007 23:40:19
Holger
Hallo Excel Profi´s,
hab mal wieder ein Porblem.Mit folgendem Code schreibe ich Daten durch eine UF in eine Ärzte Kartei. Funktioniert auchalles prima, jetzt ist mir aber aufgefallen, wenn z.B. eine Zelle leer bleibt, die z.B. email (Spalte G) und ich den nächsten Arzt eintragen will, bei dem ich die Email Eintragen kann, werden die Daten in die nächst freie Zelle geschrieben. Wie kann ich das ändern damit die Datensätze zusammen hängend geschrieben werden? Hat jemand ne Idee?
Gruß und Dank
Holger
Option Compare Text

Private Sub cmdQuit_Click()
Unload Me
End Sub



Private Sub cmdSave_Click()
Sheets("Ärzte").Select
On Error Resume Next
Application.ScreenUpdating = False
Dim Name As String
Name = Ärzte.TextBox1.Value
If Name = "" Then
GoTo Ende
Else
Call TextBox1_AfterUpdate
End If
Ende:
Sheets("Übersicht").Select
Range("A1").Select
Ärzte.ComboBox1.Value = ""
Ärzte.TextBox1.Value = ""
Ärzte.TextBox2.Value = ""
Ärzte.TextBox3.Value = ""
Ärzte.TextBox4.Value = ""
Ärzte.TextBox5.Value = ""
Ärzte.TextBox6.Value = ""
Application.ScreenUpdating = True
End Sub


Sub TextBox1_AfterUpdate()
Dim Fax As String
Dim Tele As String
Dim Name As String
Dim Vname As String
Dim Bez As String
Dim Anrede As String
Dim email As String
Name = Ärzte.TextBox1.Value
Tele = Ärzte.TextBox5.Value
Fax = Ärzte.TextBox3.Value
Bez = Ärzte.TextBox4.Value
Vname = Ärzte.TextBox2.Value
Anrede = Ärzte.ComboBox1.Value
email = Ärzte.TextBox6.Value
Dim Letzte As Long, zeile As Long
Dim s As String, t As String, a As String
Dim b As Integer, zeile1 As Integer
s = Ärzte.TextBox1.Value
t = Ärzte.TextBox2.Value
If Sheets("Ärzte").Range("A65536").Value = "" Then
Letzte = Sheets("Ärzte").Range("A65536").End(xlUp).Row
Else
Letzte = 65536
End If
For zeile = Letzte To 1 Step -1
If Sheets("Ärzte").Cells(zeile, 1).Value = Ärzte.TextBox1.Value Then
If Sheets("Ärzte").Cells(zeile, 2).Value = Ärzte.TextBox2.Value Then
MsgBox (" Arzt " & s & " ist schon vorhanden")
Ärzte.TextBox1.Value = ""
Ärzte.TextBox2.Value = ""
Ärzte.TextBox3.Value = ""
Ärzte.TextBox4.Value = ""
Ärzte.ComboBox1.Value = ""
Ärzte.TextBox5.Value = ""
Ärzte.TextBox6.Value = ""
Exit Sub
Else
a = 1
End If
Else
a = 1
End If
Next zeile
If a = 1 Then
Sheets("Ärzte").Range("A65536").End(xlUp).Offset(1, 0) = Name
Sheets("Ärzte").Range("B65536").End(xlUp).Offset(1, 0) = Vname
Sheets("Ärzte").Range("C65536").End(xlUp).Offset(1, 0) = Anrede
Sheets("Ärzte").Range("D65536").End(xlUp).Offset(1, 0) = Tele
Sheets("Ärzte").Range("E65536").End(xlUp).Offset(1, 0) = Fax
Sheets("Ärzte").Range("F65536").End(xlUp).Offset(1, 0) = Bez
Sheets("Ärzte").Range("G65536").End(xlUp).Offset(1, 0) = email
b = Sheets("Ärzte").Range("A65536").End(xlUp).Offset(0, 0).Row
For zeile1 = b To 1 Step -1
If Sheets("Ärzte").Cells(zeile1, 1).Value "" And Sheets("Ärzte").Cells(zeile1, 2).Value = "" Then
Sheets("Ärzte").Cells(zeile1, 1).EntireRow.Delete
End If
Next zeile1
End If
End Sub


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in Tabelle schreiben
21.08.2007 23:59:00
Uduuh
Hallo,
der Name wird ja wohl immer drin stehen.

With Sheets("Ärzte").Range("A65536").End(xlUp)
.Offset(1, 0) = Name
.Offset(1, 1) = Vname
.Offset(1, 2) = Anrede
.Offset(1, 3) = Tele
.Offset(1, 4) = Fax
.Offset(1, 5) = Bez
.Offset(1, 6) = email
End With


Gruß aus’m Pott
Udo

AW: Daten in Tabelle schreiben
22.08.2007 00:15:59
Holger
Hallo Udo,
ja der Name steht immerdrin,das stimmt. Wo sollich deinen code denn einfügen?
Gruß Holger

Hab´s gescheckt!!!DANKE FUNTZT!!!o.T
22.08.2007 00:32:00
Holger
s
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige