Das Clever-Excel-Forum.de - Treffen
... 14.-16. September 2018 im Allgäu ...

Besucherliste im Excel
#1
Hallo Excel-Freunde,

ich bekomme es leider nicht hin und hoffe ich bekomme hier Hilfe.

Ich möchte eine Art "Besucher-Buch" für einen Besprechungsraum erstellen.

Im Tabellenblatt 1 werden in den Zellen C8 - C10 - C12 - C14 - C16 diese Daten eingegeben: Datum - Firma - Name - Uhrzeit - Bemerkung.

Sobald dann die Besprechung vorbei ist möchte ich, dass durch einen Klick auf ein Button die ganzen Informationen ins Tabellenblatt 2 wandern.

Nach dem ersten Besuch in die Zellen A2-B2-C2-D2-E2
Nach dem zweiten Besuch in die Zellen A3-B3-C3-D3-E3
usw...
und dort dann immer gespeichert werden als Archiv.

Wenn die Liste dann geöffnet wird muss das erste Tabellenblatt natürlich leer sein.

Ich hoffe es ist verständlich erklärt und freu mich auf Lösungen.

Danke vorab...... Angel

Grüßle
to top
#2
Hallo,

in das schon vorhandene VBA-Modul "DieseArbeitsmappe" kommt folgender Code:
Code:
'Modul DieseArbeitsmappe
Private Sub Workbook_Open()
 Tabelle1.Select
 Tabelle1.Range("C8,C10,C12,C14,C16") = ""
End Sub

In ein neuese allgemeines VBA-Modul kommt dieser Code:
Code:
'allgemeines Modul (Modul1)
Sub Schaltflaeche_Klicken()
 With Tabelle1.Range("C8,C10,C12,C14,C16")
   .Copy
   Tabelle2.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial _
               Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
   .ClearContents
 End With
End Sub
Im Excel fügst Du in Tabelle1 eine Schaltfläche(Formularsteuerelement), zu finden unter Entwicklertools/Einfügen, ein und weist dieser das Makro zu.


Angehängte Dateien
.xlsm   Besucherliste_Ischake.xlsm (Größe: 17,07 KB / Downloads: 26)
to top
#3
Hallo Kuwer,

genau so brauche ich es.

Vielen vielen Dank!!!!! Shy
to top
#4
Hu Uwe,

(21.03.2016, 11:22)Kuwer schrieb:
Code:
'Modul DieseArbeitsmappe
 Tabelle1.Range("C8,C10,C12,C14,C16") = ""

ist das = "" besser als .ClearContents?
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#5
Hi Ralf,

(22.03.2016, 11:53)Rabe schrieb: ist das = "" besser als .ClearContents?

100 pro! ;-)

Code:
Sub aaa()
 With Worksheets.Add
   Range("B2:C2").Merge
   Range("A1:C4").Value = "x"
   On Error Resume Next
   Range("B1:B4").ClearContents
   If Err.Number > 0 Then
     MsgBox "Versuch, Range(""B1:B4"") zu leeren." & String(2, vbNewLine) & Err.Number & ": " & Err.Description, vbExclamation
     Err.Clear
   End If
   Range("B1:B4") = ""
 End With
End Sub

Gruß Uwe
to top
#6
Hi,

(22.03.2016, 20:11)Kuwer schrieb: 100 pro! ;-)

ok!

Aber verbundene Zellen sind doch eh Mist. Wink
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#7
Hallo Ralf,

der Befehl heißt aber
Range("B2:C2").Merge
und nicht
Range("B2:C2").Merde

17
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste