Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Excel > in nächste Zeile nach unten wechseln

VBA-Excel > in nächste Zeile nach unten wechseln
04.02.2008 19:08:41
Atsam
Hallo!
Ich ersuche euch um eure Hilfe.
Ich möchte aus 3 Textboxen die Einträge mit dem Kopierbutton in eine Excel Tabelle nebeneinander einfügen. Das funktioniert auch, aber der Eintrag wird immer überschrieben statt daß in die nächste Zeile nach unten gewechselt wird.
Hier mein VBA Code: 

Private Sub cmdKopieren_Click()
Worksheets("Tabelle2").Cells(2, 1).Value = TextBox1.Text
Worksheets("Tabelle2").Cells(2, 2).Value = TextBox2.Text
Worksheets("Tabelle2").Cells(2, 3).Value = TextBox3.Text
'mit der nächsten Zeile soll der Zeilenwechsel erfolgen!
lRow = IIf(Range("E65536")  "", 65536, Range("E65536").EntireRow(xlUp).Row)
End Sub


Ich habe schon in einer Menge Foren gesucht, aber keine Lösung gefunden. (Ev. falsch gesucht?!)
Danke
Karl

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Excel > in nächste Zeile nach unten wechse
04.02.2008 19:37:37
Uduuh
Hallo,
wenn du fix adressierst, nützt dir lRow gar nichts.

Private Sub cmdKopieren_Click()
Dim lRow As Long
With Worksheets("Tabelle2")
lRow = IIf(.Range("E65536")  "", 65536, .Range("E65536").EntireRow(xlUp).Row)
.Cells(lRow, 1).Value = TextBox1.Text
.Cells(lRow, 2).Value = TextBox2.Text
.Cells(lRow, 3).Value = TextBox3.Text
End With
End Sub


Gruß aus’m Pott
Udo

AW: VBA-Excel > in nächste Zeile nach unten wechse
05.02.2008 08:42:29
Atsam
Hallo Udo!
Ich Danke Dir für Deine Bemühungen, doch ich habe die Lösung von Karl verwendet, mit der mein "Problem" erledigt ist.
Viele Grüße aus Salzburg
Karl

Anzeige
AW: Zeile nach der letzten beschriebenen
05.02.2008 00:29:00
Erich
Hallo Karl,
die Daten sollen in die Spalten 1 bis 3, also A bis C, geschrieben werden.
In deinem Makro suchst du aber die letzte beschriebene Zelle in Spalte E.
Stehen in Spalte E Formeln, in denen Werte aus den Spalten A bis C vorkommen?
Wenn nicht, wird sich die gesuchte Zeile nicht ändern - weil sich in Spalte E eben nichts ändert.
Die Zahl 65536 würde ich nicht mehr verwenden - in Excel2007 ist die mögliche Zeilenzahl viel höher,
in Excel97 (wenn ich mich recht erinnere) gab es nur 16384 Zeilen. Rows.Count ist da besser.
Wenn die Zeile Rows.Count (momentan bei dir 65536) nicht leer ist, brauchst du lRow nicht mehr zu bestimmen.
Wohin sollten dann die neuen Daten geschrieben werden?
Wenn sicher ist, dass in Textbox1 etwas eingegeben wird, geht das so: 

Option Explicit
Private Sub cmdKopieren_Click()
Dim lRow As Long
With Worksheets("Tabelle2")
If .Cells(.Rows.Count, 1)  "" Then
MsgBox "Die letzte Zeile der Tabelle '" & .Name & "' ist gefüllt - Abbruch"
Else
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 1) = TextBox1.Text
.Cells(lRow, 2) = TextBox2.Text
.Cells(lRow, 3) = TextBox3.Text
End If
End With
End Su

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Zeile nach der letzten beschriebenen
05.02.2008 08:37:00
Atsam
Hallo Erich!
Danke für Deine schnelle Antwort und die Lösung. Es funktioniert einwandfrei.
Gruß aus Salzburg
Karl

317 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

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
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2