Hallo Leutz…
Ich muß als erstes sagen, daß bin Excel Anfänger bin…
Mein Problem:
Ich habe in „Tabelle1“ ein Eingabeformular mit Zellen, Kombinationsfelder und Listenfeldern gebastelt.
Die eingegebenen Daten erscheinen auf dem selben Tabellenblatt nochmal untereinander in normalen Zellen (per Verknüpfung) zur Kontrolle.
Diese eingegebenen Daten möchte ich auf Knopfdruck per VBA in die nächste freie Zeile der „Tabelle2“ eintragen. Danach sollen alle Inhalte der Eingabefelder (Kombinations- und Listenfelder) geleert werden.
Die (Kontroll-)Zellen enthalten zwar auch Formeln, es sollen aber nur die angezeigten Inhalte in die neue Tabelle übertragen werden.
„Tabelle1“
Zelle(A1) = enthält Datum
Zelle(A2) = enthält Zeit in Min.
Zelle(A3) = enthält Namen1
Zelle(A4) = enthält Namen2
Zelle(A5) = enthält Art1
Zelle(A6) = enthält Art2
„Tabelle2“
Spalte(A1) = Datum
Spalte(B1) = Zeit in Min.
Spalte(C1) = Namen1
Spalte(D1) = Namen2
Spalte(E1) = Art1
Spalte(F1) = Art2
Falls Zeile 1 nicht leer, dann in die nächste leere Zeile eintragen.
Wäre toll, wenn mir jemand helfen könnte, habe mich schon tagelang durchs Internet gegoogelt…
Thanks.
Zellen kopieren, dann in das 2. Tabellenblatt an der Stelle, wo es eingefügt werden soll anklicken. Dann unter „Bearbeiten“ „Inhalte einfügen“ wählen und nur die Werte einfügen.
Ich hoffe, das beantwortet die Frage.
Zellen kopieren, dann in das 2. Tabellenblatt an der Stelle,
wo es eingefügt werden soll anklicken. Dann unter „Bearbeiten“
„Inhalte einfügen“ wählen und nur die Werte einfügen.
Ich hoffe, das beantwortet die Frage.
Hallo Ulrike.
Habe mich vielleicht etwas unverständlich ausgedrückt…
Da das Eingabeformular die Eingabe erleichtern soll (mit Auswahlmenüs, Checkboxen und Listenfeldern) möchte ich den Übertrag auf die „Tabelle2“ per Makro durchführen.
Mit „Copy & Paste“ bräuchte ich kein Eingabeformular, sondern könnte die Daten ja gleich direkt in Tabelle2 eingeben.
Trotzdem Danke.
Habe hier mal das Makro, was aber SO leider nicht Funktioniert. Vielleicht weiß ja jemand, was ich da Falsch gemacht habe:
Private Sub CommandButton1_Click()
Dim intZeileFrei As Integer
'Daten von Tabelle1 („Eingabe“) in Tabelle2 („Gesamtdaten“) übertragen
With Sheets(„Eingabe“)
intZeileFrei = Gesamtdaten.UsedRange.Rows.Count + 1
.Cells(intZeileFrei, 1).Value = (B5) 'Das sind die Zellen, die
.Cells(intZeileFrei, 2).Value = (B9) 'auf die Tabelle2 übertragen
.Cells(intZeileFrei, 3).Value = (B13) 'werden sollen (B5 bis B25)
.Cells(intZeileFrei, 4).Value = (B17) 'Klappt SO aber nicht !
.Cells(intZeileFrei, 5).Value = (B21)
.Cells(intZeileFrei, 6).Value = (B25)
'Danach sollen alle Eingabefelder geleert werden
K5 = „“ 'Hier sollen die Eingabefelder (Zellen) geleert
K9 = „“ 'werden
N9 = „“
Q9 = „“
K13 = „“
K17 = „“
cbo_op1_Raute = False 'Hier sollen die Steuerelemente geleert werden
cbo_op1_BK = False
cbo_op1_ex = False
ListBox1_OP1 = False
ListBox2_OP2 = False
End With
End Sub
Hallo Leutz…
Ich muß als erstes sagen, daß bin Excel Anfänger bin…
Mein Problem:
Ich habe in „Tabelle1“ ein Eingabeformular mit Zellen,
Kombinationsfelder und Listenfeldern gebastelt.
Die eingegebenen Daten erscheinen auf dem selben Tabellenblatt
nochmal untereinander in normalen Zellen (per Verknüpfung) zur
Kontrolle.
Hallo ,
kann dir elider nicht weiterhelfen.
Diese eingegebenen Daten möchte ich auf Knopfdruck per VBA in
die nächste freie Zeile der „Tabelle2“ eintragen. Danach
sollen alle Inhalte der Eingabefelder (Kombinations- und
Listenfelder) geleert werden.
Die (Kontroll-)Zellen enthalten zwar auch Formeln, es sollen
aber nur die angezeigten Inhalte in die neue Tabelle
übertragen werden.
„Tabelle1“
Zelle(A1) = enthält Datum
Zelle(A2) = enthält Zeit in Min.
Zelle(A3) = enthält Namen1
Zelle(A4) = enthält Namen2
Zelle(A5) = enthält Art1
Zelle(A6) = enthält Art2
„Tabelle2“
Spalte(A1) = Datum
Spalte(B1) = Zeit in Min.
Spalte(C1) = Namen1
Spalte(D1) = Namen2
Spalte(E1) = Art1
Spalte(F1) = Art2
Falls Zeile 1 nicht leer, dann in die nächste leere Zeile
eintragen.
Wäre toll, wenn mir jemand helfen könnte, habe mich schon
tagelang durchs Internet gegoogelt…
Thanks.
Hallo,
da kann ich leider nicht helfen. Viel Erfolg weiterhin.
Viele Grüße
Claus-Peter
Hallo, Illuminator,
leider kann ich Dir bei Deinem Problem aus zeitlichen Gründen nicht helfen. Bitte suche Dir einen anderen Partner aus. Tut mir leid! Ich wünsche Dir einen guten Erfolg; die Frage ist interessant.
Gruß
Harald Gerhard
Hallo Illuminator,
ich kann dir leider nicht direkt helfen, weil ich nicht mit VBA arbeite.
Aber ich habe auch mal gegoogelt und das hier gefunden: Eine Einführung in VBA. Auf Seite 10 steht zum Beispiel „CLEAR löscht einen Zellbereich oder ein Diagramm.“.
Das scheint mir zumindest ein Teil davon zu sein, was zu Deiner Aufgabenstellung passt. Vielleicht steht der Rest auch noch drin. Hier ist der Link dazu (es ist ein pdf-Dokument):
ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/b…
Ich hoffe, das es dir etwas nützt.
Sorry, kann leider nicht helfen.
MFg
ARmin