Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - auf die nächste Zeile schreiben
 27.12.2014 15:11:58 jojue
NotSolved
27.12.2014 15:17:04 Gast36200
NotSolved
27.12.2014 15:29:50 Gast65762
NotSolved
27.12.2014 16:10:21 Gast13293
NotSolved
27.12.2014 17:47:18 Gast18227
Solved
27.12.2014 22:43:05 Gast61268
Solved

Ansicht des Beitrags:
Von:
jojue		 Datum:
27.12.2014 15:11:58		 Views:
2065		 Rating:
     
Antwort:
  Ja
Thema:
VBA - auf die nächste Zeile schreiben

Hallo und guten Tag

Nach langem langem Suchen und nicht passendes finden in den verschiedenen Foren gelange ich mit meinem Anliegen an euch mit der bitte um Hilfe.

Bin absolut neu in VBA und suche deshalb Unterstützung.

Mein Anliegen:

?
1
<span style="font-family: Arial, Verdana, sans-serif;">In einem Excel habe ich ein UserForm (frm_Eingabe)</span>

in diesem sind fünf textboxen (Datum / Blau / Gelb / Rot / Grün) und vier Befehlsschaltflächen / CommendButton (Gruppe 1 / Gruppe 2 / Neu / Abbrechen)

Ziel ist es nun, mit diese Button (Gruppe 1 und Gruppe 2) die Werte von  Datum / Blau / Gelb / Rot / Grün in die Exceltabellen Gruppe 1 und Gruppe 2 zu übertragen. Dies funktioniert auch tadellos und werden in A2-E2 korrekt eingetragen. Jeweils im entsprechenden Tabellenblatt Gruppe 1 oder Gruppe 2, je nach Button der angeklickt wird.

Nun finde ich aber die Lösung nicht, um die Werte (Datum / Blau / Gelb / Rot / Grün) beim Anklicken der entsprechenden Button (Gruppe 1 oder Gruppe 2) im entsprechenden Tabellenblatt (Gruppe 1 oder Gruppe 2) in die nachfolgenden Zeilen, also in A3-E3 zu übertragen. Also einfach in die nächste Zeile.

Meine Code für die beiden Button Gruppe 1 + Gruppe 2

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub b_abbruch_Click()
 
'Schliesst das Eingabeformular
        Unload frm_Eingabe
 End Sub
 
Private Sub b_Gruppe1_Click()
 
'Übergabe der Inhalte in das Tabellenblatt Gruppe 1
        gruppe1.Cells(2, 1) = tb_datum.Value
        gruppe1.Cells(2, 2) = tb_blau.Text
        gruppe1.Cells(2, 3) = tb_gelb.Text
        gruppe1.Cells(2, 4) = tb_rot.Text
        gruppe1.Cells(2, 5) = tb_grün.Text   
     
'Eingabeformular schliessen
        Unload frm_Eingabe
End Sub
 
Private Sub b_gruppe2_Click()
 
'Übergabe der Inhalte in das Tabellenblatt Gruppe 2
        gruppe2.Cells(2, 1) = tb_datum.Value
        gruppe2.Cells(2, 2) = tb_blau.Text
        gruppe2.Cells(2, 3) = tb_gelb.Text
        gruppe2.Cells(2, 4) = tb_rot.Text
        gruppe2.Cells(2, 5) = tb_grün.Text
 
'Eingabeformular schliessen
        Unload frm_Eingabe
End Sub
 
Private Sub UserForm_Initialize()
 
'Einfügen des aktuellen Datums in Eingabeformular
        frm_Eingabe.tb_datum.Value = Date
End Sub
 
Besten Dank für die Hilfe
 
jojue

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - auf die nächste Zeile schreiben
 27.12.2014 15:11:58 jojue
NotSolved
27.12.2014 15:17:04 Gast36200
NotSolved
27.12.2014 15:29:50 Gast65762
NotSolved
27.12.2014 16:10:21 Gast13293
NotSolved
27.12.2014 17:47:18 Gast18227
Solved
27.12.2014 22:43:05 Gast61268
Solved