Thema Datum  Von Nutzer Rating
Antwort
16.12.2018 14:47:46 Sidonia
***
Solved
Blau Zeilen automatisch nach unten verschieben
16.12.2018 17:07:41 Gast88233
NotSolved
16.12.2018 19:33:54 Sidonia
NotSolved
16.12.2018 19:34:57 Gast92364
NotSolved

Ansicht des Beitrags:
Von:
Gast88233		 Datum:
16.12.2018 17:07:41		 Views:
536		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen automatisch nach unten verschieben 
Private Sub Button_Take_Click()

'Eingaben der Schaltflächen in die Arbeitsmappe übernehmen
'Dim last As Integer
'last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

   With ActiveSheet
      If .Cells(.Rows.Count, 1).End(xlUp).Row > 1 Then _
      Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3).Cut .Cells(3, 1)
      .Cells(2, 1).Value = CDate(BFK_Team.Text_Datum.Value)
      .Cells(2, 2).Value = BFK_Team.Text_Bezeichnung.Value
      .Cells(2, 3).Value = BFK_Team.Text_Beschluss.Value
   End With

End Sub

 

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:



  • 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
16.12.2018 14:47:46 Sidonia
***
Solved
Blau Zeilen automatisch nach unten verschieben
16.12.2018 17:07:41 Gast88233
NotSolved
16.12.2018 19:33:54 Sidonia
NotSolved
16.12.2018 19:34:57 Gast92364
NotSolved