Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

eine zelle nach rechts

eine zelle nach rechts
11.11.2004 05:56:19
Sebastian
Guten Morgen,
ich habe folgendes Anliegen:
Beim klick des buttons cmdFertig sucht VBA die letzte nicht leere zelle in spalte A und markiert die darauf folgende (Range("A3").End(xldown).Offset(1,0).Select).
Jetzt wird hier ein wert eingefügt (Selection=txtlfdNr). Als nächstes soll die Markierung um eine Zelle nach rechts gehen und dort den wert aus cmbTag eingefügt werden. Dann wieder nach rechts und txtBeschr einfügen. Zu guter letzt,
if cmbEinAus="Einnahme" then eine zelle nach rechts und txtBetrag einfügen und
if cmbEinAus="Ausgabe" then zwei zellen nach rechts und txtBetrag einfügen.
Danke für eure Mühen.
MfG
Sebastian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: eine zelle nach rechts
WernerB.
Hallo,Sebastian
wie gefällt Dir das (ungetestet)?
Übrigens: Auf "Select" kann i.d.R. zu 99 % verzichtet werden!

Sub Sebastian()
' Hier Dein bisheriges Makro
Range("A3").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = txtlfdNr
ActiveCell.Offset(0, 1).Value = cmbTag
ActiveCell.Offset(0, 2).Value = txtBeschr
If cmbEinAus = "Einnahme" Then
ActiveCell.Offset(0, 3).Value = txtBetrrag
ElseIf cmbEinAus = "Ausgabe" Then
ActiveCell.Offset(0, 4).Value = txtBetrag
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige

168 Forumthreads zu ähnlichen Themen

VBA 2 Zellen nach rechts
klausk

Guten Tag,
und zwei Fragen:
1. wie lautet die VBA Anweisung, um im Ablauf eines Makros um zwei Zellen nach rechts zu gehen ?
2. wie ist die exakte Schreibweise für sendkeys return ?
Leider zeichnet der Makrorekorder beide Vorgänge nicht auf.
Vielen Dank
Klaus
10.04.2009 13:09:28
Thread-ID: 1068186
3 Beiträge
Anzeige
Vba; eine Zeile weiter nach unten...
Lucas

Ahoi Leute,
ich hab mal nen Problem:
ich brauche einen Makro, der folgendes tut:
Schreibe in Zelle A1 die Zahl a=1;
Prüfe, ob in Zelle B1 der Text "Ja" steht;
Wenn "Ja": Schreibe in Zelle C1 die Zahl a;
Wenn nicht "Ja": nichts
Schreibe in Zelle A1 den Wert a+1;
P...
18.12.2009 21:22:20
Thread-ID: 1124983
3 Beiträge
VBA: Zellen vergleichen, Zellen nach unten
Scot

Hallo Leute
Ich hoffe, in diesem Forum eine Lösung für mein Problem zu finden. Bin seit Tagen auf der Suche.
Meine Tabelle sieht so aus, wie die hochgeladene, Blatt "Ausgangslage":
https://www.herber.de/bbs/user/66860.xls
Ziel soll sein, die Spalten B und N ab Zeile 6 Zeile für...
29.12.2009 02:57:17
Thread-ID: 1126145
6 Beiträge
Anzeige
Spalte mit VBA um eine Spalte nach rechts kopieren
Hagen

Hallo zusammen,
ich benötige mal eure Hilfe!
Ich möchte mit einem VBA Code den Bereich A10:A20 nach B10:B20 kopieren, bei erneutem Ablauf des Macros sollte dann der Bereich von B nach C und das nächte mal von C nach D usw Kopiert werde
Ich habe dazu aber leider keine Lösung! und hof...
24.02.2010 12:35:31
Thread-ID: 1141023
8 Beiträge
Gehezu (F5) Zellbezug der aktuellen Zelle
Rainer

Hallo Excel Experten,
ich springe in meiner Rechnungsexcel Arbeitsmappe oft kreuz und quer zu den älteren Rechnungsblättern.
Ich nutze i.d.R. in einem Übersichtsblatt den Zellbezug zur Endsumme auf dem jeweiligen RechnungsBlatt.
Allerdings muss ich jedesmal nach drücken der F5 Ta...
20.04.2010 14:07:31
Thread-ID: 1152880
9 Beiträge
gehe zu einer Zelle in der aktuellen Zeile
Holger

Hallo mit einander
Ich habe folgendes Problem
im bereich f6- bis f250 sind Datumswerte
in der 5 Zeile sind auch Datumswerte
Bsp
----------------Zeile 6 -------------01.06. --- 02.06 ---- 03.06
Spalte F
12.6.2010
13.6.2010
03.6.2010 -----------...
30.10.2010 20:33:37
Thread-ID: 1184563
3 Beiträge
Gehe zu leerzelle "j" / Vba
juergen

Guten Morgen zusammen,
endlich etwas besseres Wetter, lol.
Versuche mich mit u. stehendes Makro. Funzt soweit, aber ich möchte dass, dass wenn "gelöcht" wurde, der Cursor auf die nächst leer Zeile in Spalte "J" zurück geht. Könnt Ihr mir bitte Helfen?
Gruß
Juergen Private Sub da...
29.04.2011 11:41:00
Thread-ID: 1212363
3 Beiträge
vba foreln nach rechts kopieren
Manu

Hallo Profis,
ich brauche wieder einmal Eure Hilfe.
Ich habe in den Zellen B20:B32 Formeln und möchte diese nun per Makro nach rechts kopieren, wobei die letzte benutzte Spalte variabel ist.
Ich habe es mit autofill versucht, bekomme es aber nicht hin.
Könnt Ihr mir helfen?
...
09.12.2012 17:52:57
Thread-ID: 1289961
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
9
2
5
3
7
8
2
2
5
5
10
1
3
1
3
1
1
1
2
1
4
3
3
6