Thema Datum  Von Nutzer Rating
Antwort
12.06.2015 00:22:57 Morre
*****
Solved
Blau Suche Hilfe bei VBA
 19.06.2015 04:07:02 Gast87850
Solved
19.06.2015 04:09:40 Werner
Solved
19.06.2015 19:36:20 Gast67904
NotSolved

Ansicht des Beitrags:
Von:
Gast87850		 Datum:
19.06.2015 04:07:02		 Views:
697		 Rating:
     
Antwort:
 Nein
Thema:
Suche Hilfe bei VBA		 
Hallo Morre,

meinst du so?

Option Explicit

Public Sub Test()
Dim i As Long
Dim sText As String
i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
sText = InputBox("Bitte ein Lebensmittelartikel eintragen", "Eingabefeld", "Ihr Eintrag", 1, 1)
ActiveSheet.Cells(i, 1) = sText
End Sub

Der Code sucht die erste freie Zeile von unten (Spalte A) und fügt dort den Eintrag deiner Inputbox ein.

Werner

 

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
12.06.2015 00:22:57 Morre
*****
Solved
Blau Suche Hilfe bei VBA
 19.06.2015 04:07:02 Gast87850
Solved
19.06.2015 04:09:40 Werner
Solved
19.06.2015 19:36:20 Gast67904
NotSolved