Excel VBA - Zelle auswählen, dann F2

Hallo erneut Excel-Freunde,

mein Titel verrät es bereits. Eine Zelle soll markiert werden, daraufhin soll "F2" und dann "Enter" gedrückt werden.

Mein Makro sieht bisher so aus:

'Ans Ende der Tabelle springen

ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Select

ActiveCell.Offset(1, 0).Select

' Eingabeaufforderung 1 Datum

Eingabe = InputBox("Bitte Datum angeben, wann die Ware eingetroffen ist!" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "Bitte schreiben Sie in: tt:mm:jjjj" & Chr(13) & Chr(10) & _ "" & _ "", _ "Zugang [Datum]", ActiveSheet.Range("B1") _ & "_", 7000, 5000)

If StrPtr(Eingabe) = 0 Then ' MsgBox ("Die Schaltfläche Abbrechen wurde gewählt. Der Vorgang wird abgebrochen.") End Else

End If

ActiveCell.Offset(0, 0).Value = Eingabe

Wie man sieht, sucht er sich selbst die letzte Zelle in meiner Tabelle um dort mit einer Eingabeaufforderung das Datum anzugeben.

Nun möchte ich als nächsten Schritt, genau diese Zelle, wo man eben das Datum eingegeben hat mittels dem Makro da oben, ... das er diese Zelle auswählt, "F2" und dann "Enter" drückt.

Alle Versuche dies zu bewerkstelligen, schlugen bisher fehl.

Habt ihr eine Idee?

Viele Grüße,

David :) ... Pixelschubster :D

3 Antworten

MrProcess

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

12.09.2013, 09:40

Normalerweise wäre die Antwort "verwende Tastenfolge.Senden", aber einfacher wäre das Ergebnis einfach per Makro einzugeben

ActiveCell.FormulaR1C1 = eingabe

Wobei: der Doppelpunkt ist das Standardtrennzeichen für Zeit. Nicht für Datum. Insofern ist der Prompt in der MsgBox falsch.

Zum anderen: wenn man den Leuten sagt "versuch es mit Strg-. (Punkt)" kommt man auch schnell ans Ziel. Dto für letzte Zelle auswählen (Strg-Pfeil nach unten)

ShitzOvran

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

12.09.2013, 09:48

Gewöhn dir mal an, deinen Code hier auch als Codebeispiel einzufügen.... außerdem kannst du diese ganze F2 Enter Sache vergessen, wenn du einfach am Anfang deines Statements Eingabe als Datum definierst.

Dim Eingabe As Date

'Ans Ende der Tabelle springen

ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Select

ActiveCell.Offset(1, 0).Select

' Eingabeaufforderung 1 Datum
[...]

Dann ist es gleich beim Einfügen ein Datum... Dann musst du allerdings auf deine Doppelpunkte verzichten (Warum Doppelpunkte??!?)

daCypher

12.09.2013, 09:36

Probiers mal mit SendKeys("{F2}") und SendKeys("{Return}")

Bei beiden musst du evtl. Application. vorne dran setzen.

Hallo,

Ich lasse in Excel (Excel 2019) auf Knopfdruck ein Makro laufen.

Es ist eigentlich ganz simple: Es schreibt "ok" in die aktive Zelle, kopiert die linke Zelle und springt dann wieder ein runter und ein nach rechts.

Private Sub CommandButton3_Click()

Range(ActiveCell, ActiveCell.Offset(2, 0)) = "ok"

ActiveCell.Offset(0, -1).Select

Range(ActiveCell, ActiveCell.Offset(2, 0)).Copy

ActiveCell.Offset(3, 1).Select

End Sub

Das was ich nicht hinkriege:

Es wird leider die gesamte Zelle kopiert. Wenn ich die Zelle irgendwo anders einfüge wird die gesamte Zelle mit Rahmen und anderen Formatierungen eingefügt.

Nun die Frage: Kann ich anstatt die gesamte Zelle auch nur den Zelleninhalt, also nur die Schrift ohne jegliche Formatierungen kopieren lassen? Ich brauche es in den Zwischenspeicher, sodass ich es wo anders in einem Browser mit STRG+V einfügen kann.

Vielen Dank im Voraus

...zur Frage

Zelleninhalt mit Makro/ Vba verschieben

Moin,

ich hab folgendes Problem, und zwar möchte ich eine Makrofunktion erstellen mit der man den Zellinhalt einer markierten Zelle in eine andere frei wählbare Zelle kopieren kann. Bis jetzt sieht meine Funktion so aus:

Sub Makro()

Dim Quellbereich As Range Set Quellbereich = ActiveCell

Quellbereich.Copy Range("C1").Select Selection.PasteSpecial Paste:=x1Values, Operation:=x1None, SkipBlanks:= False, Transpose:=False Application.Cutcopymode = False Quellbereich.Select Quellbereich = "" Range("C1").Select

End Sub

Jetzt ist meine Frage, wie ich "Range("C1") auch über die Auswahl mit der Maus steuern kann. Ich stell mir das mit Pause/Wait und Input neue Zellenauswahl oder so vor. Evnt. auch das man das Makro wie bisher über Strg+y startet und anschließend die Quell und die Zielzelle nach einander markiert.

...zur Frage

VBA-Code für Excel erweitern?

Hallo,

folgender Sachverhalt: In meiner Excel-Datei habe ich in Zelle A10 ein Datum stehen. In der Regel ist es der 01. Januar(Abweichungen möglich). In den Zellen B10-J10 stehen Daten. Nach betätigen der Enter-Taste soll in die Zelle A11 gesprungen werden. Dazu habe ich folgenden Code in einer Beispielmappe im Netz gefunden:

Sub EnterOnOff(Optional bolOn As Boolean)

If bolOn Then

Application.OnKey "{ENTER}", "NaechsteZeileEinblenden" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~", "NaechsteZeileEinblenden" 'EINGABETASTE

Else

Application.OnKey "{ENTER}" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~" 'EINGABETASTE

End If

End Sub

Private Sub NaechsteZeileEinblenden()

With ActiveCell.Offset(1).EntireRow

.Hidden = False

.Cells(1).Activate

End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target.Cells(1)

EnterOnOff .Column = 10 And .Row > 9

End With

End Sub

Das funktioniert auch soweit. Nun möchte ich gerne, das Excel mir nach betätigen der Enter-Taste das nächste Datum in Zelle A11. Entsprechendes gilt natürlich fortlaufend.

Hat jemand ne Idee oder gar ne Lösung für mich?

Gruß Chris

...zur Frage

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zur Frage

Suche ein Makro welches mir alle Blattnamen (außer "Blatt1") in eine Tabelle in Blatt1 einträgt, kann mir jemand weiterhelfen?

Hätte gerne auf meinem "Blatt1" eine Auflistung aller Blätternamen der Exceldatei. Die Namen sollen untereinander ab Zelle D3 von "Blatt1" stehen. Zusätzlich soll in der nächsten Spalte E jeweils ein Zellenwert (Datum) von den Blättern stehen. Der Datumswert der Blätter steht in Zelle E9. Sprich am Ende soll mir das Makro eine Tabelle liefern in der Form:

Tabellenname Datum

Blatt 2 04.05.12

Blatt 3 02.02.10

... ....

Bin leider noch ein Anfänger bei VBA und hab dieses noch nicht Umsetzen können. Für mögliche Anregungen und Lösungen wäre ich sehr dankbar! Die Blätteranzahl variiert weshalb ein Makro von Nöten ist.

...zur Frage

Datum in ausgewählter Zelle per Makro einfügen?

Hallo Leute,

Also ich würde gerne per Knopfdruck in einer Zelle die ausgewählt (also angeklickt) ist das aktuelle Datum einfügen.

ist das möglich und wenn ja könnte mir jemand den entsprechenden befehl schreiben?

...zur Frage

Excel Aktive Zelle auslesen VBA?

Ich habe eine Tabelle in Excel erstellt. Nun ist dort ein Button, der auf Knopfdruck ein Makro ausführt, das, wenn die aktuelle entweder B2 oder C6 oder D10 ist, in diese Zelle eine 5 einträgt. Wie kann ich das mit einer If-Anweisung umsetzen (mithilfe von Or-Operatoren)?

Also ich meine so in die Richtung

If ActiveCell = B2 Or C6 Or D10 Then

Active Cell.Value = 5

Else

MsgBox("Das Argument ("5") ist nicht mit der aktuellen Zelle kompatibel.")

End If

Nur dass das oben nie funktioniert, weil ich nicht weiß, wie ich mehrere Zellen als richtig ansehen lassen kann.

Kann mir jemand das richtige Makro zeigen?

...zur Frage

Makro mit VBA in Excel zerschossen, brauche dringend Hilfe!?

Hallo zusammen,

vorab schonmal, nein ich habe hier absolut 0% Ahnung hiervon und brauche dringend Hilfe!

Ich habe auf der Arbeit bei einer wichtigen Excel Datei eine neue Spalte eingefügt, was dafür gesorgt hat, dass eine wichtige Spalte rechts davon weiter nach rechts verschoben wurde um eine Zelle.

In dieser Spalte wurden Enddatum eingetragen und diese wurden mit einem Makro über VBA Absteigend von jüngerem Datum oben, nach späteren Datum nach unten hin sortiert.

Nachdem ich die neue Spalte zugefügt habe, funktionierte eins nach dem anderen nicht mehr richtig und ich war so dumm zu versuchen das Makro minimal anzugleichen, sodass es funktioniert und habe es dann getestet.

Dadurch habe ich es nur schlimmer gemacht...

Zudem kann ich jetzt nicht mal mehr in der Tabelle scrollen, zumindest in diesem Reiter, in einem anderen Reiter unten, kann ich scrollen in der Datei.

Der Text in VBA Stand jetzt:

Sub Sortieren()

' Sortieren Makro

Rows("3:500").Select

Range("B3").Activate

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range( _

"H4:Hl34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Übersicht").Sort

.SetRange Range("A3:L500")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

ActiveWindow.SmallScroll Down:=3

ActiveSheet.Range("$A$3:$L$97").AutoFilter Field:=12, Criteria1:="="

ActiveWindow.SmallScroll Down:=-12

End Sub

...zur Frage

Excel zeigt nicht den aktuellen Wert der Zelle?

z.B.
Excel zeigt in der Zelle den Wert 100
Wenn ich in die Zelle mit F2 gehe, die Formel markiere und mit F9 das Ergebnis ansehe steht der Wert 270
Jetzt muss/müsste ich in jeder solchen Zelle mit F2 und ENTER/TAB/strg+s das Ergebnis aktualisieren (funktioniert also). Gibts es hierfür eine schnellere/gesamtheitliche Lösung ?
Kann man also alle Zellen/Formeln auf einmal "abschließen"?
VG

...zur Frage

Brauche einen Excel Makro zum wechseln von Tabellen?

Kurzgefasst brauche ich einen Makro mit folgender Logik:

Wenn irgendeine Zelle angeklickt wird, worin die ersten drei Zeichen identisch sind wie mit einem Tabellenblatt, dann soll zu dem Tabellenblatt gewechselt werden.

Also Zelle A1 heißt zum Beispiel "AAA_Tabelle1".
Klickt man nun auf A1, soll Excel zum Tabellenblatt mit dem Namen "AAA" springen.
Und dies bitte automatisiert. Denn manuell könnte ich es auch machen, aber dann wären halt alle Werte fest und nicht variabel. Mein manueller/nicht flexibler Code lautet:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell Like "AAA*" Then
Sheets("AAA").Select
End If
End Sub

Vielen Dank im Voraus

...zur Frage

Wie kann ich bei Excel einen Button erstellen der abspeichert?

Hallo,

Ich würde gerne bei Excel einen Button erstellen, der die Excel mappe auf dem Desktop abspeichert. Der Name der Datei soll in Zeile A1 stehen.

Den Button habe ich bereits erstellt. Ich scheitere noch bei dem Makro, weil ich keine ahnung davon habe. Ich habe etwas im Internet gefunden, was meinen Vorstellungen nahe kommt. Ich habe versucht es anzupassen, aber irgendwie klappt das alles nicht.

Sub Schaltfläche1_Klicken()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("A1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in A1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("A1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls gespeichert.", , "OK"
End If
End Sub

Das ist, was ich bis jetzt habe.

Vielen Dank für die Hilfe im Voraus!

...zur Frage

Excel VBA Makro Code?

Guten Tag zusammen,

Undzwar geht es darum das ich ein Makro erstellt habe der sieht so aus :

Sub Makro1()

' Makro1 Makro

Range("D3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C6").Select

ActiveSheet.Paste

Sheets("Tabelle1").Select

Range("J3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Tabelle1").Select

Range("R3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C13").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("D26").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Tabelle1").Select

Range("H3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

Das Problem ist jetzt das ich möchte das er in der Excel Tabelle jede Zeile mit diesem Makro ausfüllt sprich er soll bei Zeile 3 anfangen und bis 322 weiterführen ich habe 2 Mappen 1. "Tabelle1" und "1M"

Tabelle1 hatt die 322 Zeilen aber er springt nicht zur jeder Zeile und die Zelle "D3" , "J3", "R3", "H3" sollten dann auf die nächste Zeile Springen Sprich "D4", "J4" , "R3" , "H4" wenn er auch in der 4 Zeile ist

die restlichen Zellen sollen festbleiben zugehörig zu Mappe "1M"

ich hoffe es ist verständlich was ich meinte :'D

...zur Frage

VBA vergangene Tage seit bestimmtem Datum berechnen?

Hallo,

Ich habe in Excel in der Spalte E immer ein Datum im Format "tt.mm.jjjj". Anzahl der Zeilen ist variabel. Ich möchte ein Makro programmieren, welches mir die vergangenen Tage vom Datum bis heute ausrechnet und das Datum in der jeweiligen Zelle mit den berechneten Tagen überschreibt. Wenn größer 10, soll zudem rot markiert werden.

Kann mir jemand helfen? Hab das mit DateDiff probiert. Hat aber nicht hingehauen.

Danke !

...zur Frage

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen