Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA erste freie Zeile wird überschrieben
 01.01.2021 14:38:16 Josi
NotSolved
01.01.2021 15:03:59 Mase
Solved
01.01.2021 21:33:06 Gast85162
NotSolved
02.01.2021 00:35:17 Mase
NotSolved
01.01.2021 16:44:27 Gast7777
Solved

Ansicht des Beitrags:
Von:
Josi		 Datum:
01.01.2021 14:38:16		 Views:
1729		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA erste freie Zeile wird überschrieben

Hey,

danke im Voraus für alle Antworten.

Ich bin noch recht neu im Nutzen von Excel VBA. In meiner UserForm habe ich mehrere Bereiche, in denen Angaben zu einem Schaltfeld gemacht werden (z.B. Anzahl der Sammelschienen, Anzahl der Abgangserder, Synchrocheck ja oder nein, ...) Je nach Auswahl, sollen aus einem "Katalog"-Tabellenblatt Zeilen kopiert und in meine Liste in die letzte freie Zeile eingefügt werden.

Meine Suche nach der letzten freien Zeile habe ich wie folgt geschrieben:

?
1
2
Dim last As Integer
last = Worksheets("Liste").Cells(Rows.Count, 1).End(xlUp).Row + 1

Danach kommen die Copy-Paste Bedingungen:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Feldart
 
Worksheets("Liste").Cells(last, 1) = TextBox_Feldname.Text
Worksheets("Liste").Cells(last, 2) = ComboBox_Feldart.Value
Worksheets("Liste").Cells(last, 3) = ListBox_Spannungsebene.Value
 
'Anzahl der Sammelschienen
 
If OptionButton_SS1 = True Then ActiveSheet.Range("2:2").Copy Destination:=Worksheets("Liste").Cells(last, 1)
If OptionButton_SS2 = True Then ActiveSheet.Range("3:3").Copy Destination:=Worksheets("Liste").Cells(last, 1)
If OptionButton_SS3 = True Then ActiveSheet.Range("4:4").Copy Destination:=Worksheets("Liste").Cells(last, 1)
 
Anzahl der Abgangserder
 
If TextBox_AE.Value = "1" Then ActiveSheet.Range("5:5").Copy Destination:=Worksheets("Liste").Cells(last, 1)
If TextBox_AE.Value = "2" Then ActiveSheet.Range("6:6").Copy Destination:=Worksheets("Liste").Cells(last, 1)
If TextBox_AE.Value = "3" Then ActiveSheet.Range("7:7").Copy Destination:=Worksheets("Liste").Cells(last, 1)
If TextBox_AE.Value = "4" Then ActiveSheet.Range("8:8").Copy Destination:=Worksheets("Liste").Cells(last, 1)

usw.

Das ActiveSheet ist mein Katalog, die Steuerelemente sind soweit initialisiert. Einzeln funktionieren die Befehle, nur wenn ich sie untereinander ablaufen lassen möchte, wird nicht die unterste freie Zeile beschrieben, sondern bereits ausgefüllte Zeilen werden überschrieben. Hoffentlich wurde mein Problem deutlich. Ich freue mich über jede HIlfe!

 

Lieben Dank und schöne Grüße

eine ahnungslose Studentin

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Excel VBA erste freie Zeile wird überschrieben
 01.01.2021 14:38:16 Josi
NotSolved
01.01.2021 15:03:59 Mase
Solved
01.01.2021 21:33:06 Gast85162
NotSolved
02.01.2021 00:35:17 Mase
NotSolved
01.01.2021 16:44:27 Gast7777
Solved