Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.01.2025 21:30:26
Punktediagramm mit verschieden vielen Punkten
17.01.2025 20:50:45
Fehlerquotient für Schultest berechnen (Formel)
17.01.2025 19:14:40
Power Query ignoriert die letzte Spalte - Warum ? Hilfe
17.01.2025 18:21:02
vba-editor öffnet sich,- aber kein Fehler
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range für Paste ändern VBA

Kategorie
Programmierung
Tags
#codehilfe #vba #zurechtfinden
Relevante Fragen
Anzeige
Range für Paste ändern VBA
03.12.2019 07:36:55
Thomas
Guten Morgen Leute,
Kann mir bitte einer sagen wie ich den Code entsprechend umschreiben kann, hab die ganze Nacht versucht und nichts brauchbares zustande gebracht.
Mein Code sucht den Inhalt der TextBox in Spalte A und soll die kopierte Range dann einfügen.
Momentan fügt er das kopierte direkt in Spalte A ein. Jetzt soll er den Inhalt in spalte A suchen und das kopierte in Spalte U einfügen.
Private Sub CommandButton3_Click()
Dim lnglast2 As Long
Dim Suche
lnglast2 = Sheets("Planung").Cells(Rows.Count, 1).End(xlUp).Row
Set Suche = Sheets("Planung").Range("U4:U" & lnglast2).Find(TextBox46, LookIn:=xlValues)
If Not Suche Is Nothing Then
Sheets("Datenbank").Range("F2:IZ2").Copy
Sheets("Planung").Range(Suche.Address).PasteSpecial xlPasteValues
Sheets("Planung").Range(Suche.Address).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Else
Sheets("Datenbank").Range("F2:IZ2").Copy
Sheets("Planung").Cells(lnglast2 + 1, 21).PasteSpecial xlPasteValues
Sheets("Planung").Cells(lnglast2 + 1, 21).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End If
End Sub
Würde mich tierisch über hilfe freuen.
Vielen Dank schonmal im voraus.
Gruß
Thomas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Nachtrag
03.12.2019 07:40:33
Thomas
Hab gesehen das der Code noch Versuchs-Syntax hatte. 
Private Sub CommandButton3_Click()
Dim lnglast2 As Long
Dim Suche
lnglast2 = Sheets("Planung").Cells(Rows.Count, 1).End(xlUp).Row
Set Suche = Sheets("Planung").Range("A4:A" & lnglast2).Find(TextBox46, LookIn:=xlValues)
If Not Suche Is Nothing Then
Sheets("Datenbank").Range("F2:IZ2").Copy
Sheets("Planung").Range(Suche.Address).PasteSpecial xlPasteValues
Sheets("Planung").Range(Suche.Address).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Else
Sheets("Datenbank").Range("F2:IZ2").Copy
Sheets("Planung").Cells(lnglast2 + 1, 21).PasteSpecial xlPasteValues
Sheets("Planung").Cells(lnglast2 + 1, 21).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End If
End Sub

ist der richtige Ausdruck.
Anzeige
Dein Code?...
03.12.2019 07:47:45
Torsten
Hallo Thomas. Der war von mir. Aber egal, ich helfe ja gerne. Hier die Aenderung: 

Private Sub CommandButton3_Click()
Dim lnglast2 As Long
Dim Suche
lnglast2 = Sheets("Planung").Cells(Rows.Count, 1).End(xlUp).Row
Set Suche = Sheets("Planung").Range("A4:A" & lnglast2).Find(TextBox46, LookIn:=xlValues)
If Not Suche Is Nothing Then
Sheets("Datenbank").Range("F2:IZ2").Copy
Sheets("Planung").Cells(Suche.Row, 21).PasteSpecial xlPasteValues
Sheets("Planung").Cells(Suche.Row, 21).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Else
Sheets("Datenbank").Range("F2:IZ2").Copy
Sheets("Planung").Cells(lnglast2 + 1, 21).PasteSpecial xlPasteValues
Sheets("Planung").Cells(lnglast2 + 1, 21).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End If
End Sub

Gruss Torsten
Anzeige
AW: Dein Code?...
03.12.2019 08:14:02
Thomas
Guten Morgen Torsten,
Finde es gut das du es klargestellt hast. War aber nicht so gemeint das ich den selber geschrieben habe.
Sorry dafür...und danke nochmal für die Hilfe. Beim nächsten mal werde ich dich erwähnen.
Gruß Thomas
AW: Dein Code?...
03.12.2019 08:15:52
Torsten
War ja auch nur ein Scherz ;-). Wenn ich sauer gewesen waere, haette ich nicht geantwortet.
Anzeige

Forumthreads zu verwandten Themen

VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Excel-Makro mit variablen Zeilen
Hans-Peter

Hallo,
Ich bin auf der Suche nach einer Excel-Funktion oder einem Makro, welches es mir ermöglicht, eine variable Anzahl Zeilen (mit definiertem Inhalt in der letzten Zeile) in ein neues Arbeitsblatt zu kopieren.
09.11.2008 22:40:00
Thread-ID: 1023114
5 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
Anzeige
Variablen Druckbereich mittels VBA einrichten (2) | Herbers Excel-Forum
Space
Hallo Rudi, Hallo Forums-Mitglieder,
zunächst vielen Dank an dich Rudi für die schnelle Rückmeldung! Leider konnte ich auf deinen Beitrag nicht direkt antworten, deshalb muss ich einen neuen Beitrag aufmachen.
Kurz zum Thema: Ich suche eine Lösung für einen variablen Druckbereich mittels VB...
13.01.2010 08:46:23
Thread-ID: 1129313
5 Beiträge
VBA Reihen Löschen mit Variable
chrissey

Hallo Leut,
hab folgende Zeile und möchte diese durch eine Variable ersetzen ( Variablen Name = ErsteZeile )
Worksheets("A").Rows("2:2").Delete Shift:=xlUp
Das ("2:2") möchte ich durch die oben genannte Variable ersetzen.
Kriegs aber irgendwie nicht hin.
Grüße Euch ganz lieb...
15.02.2010 15:56:05
Thread-ID: 1138678
3 Beiträge
Range Select mit Variablen
Tom

Hallo zusammen,
wie kann ich denn beim selektieren von 2 unterschiedlichen Spalten Variablen verarbeiten?
Beispiel:
Range("J:J,CS:CX").Select
So ist es klar...nur wie mir Variablen?
variable1 = CS
variable1 = CX
Range("J:J,variable1:variable2").Select ?
Ich könnt...
04.05.2010 09:41:01
Thread-ID: 1155260
2 Beiträge
Anzeige
Teilergebnis per VBA mit variablen Spalten
grexx123

Hallo,
ich habe schon einmal in dieses Forum geschrieben und kann leider keine weiteren Beiträge mehr schreiben - meine Frage ist aber leider immer noch offen....
https://www.herber.de/forum/archiv/1156to1160/t1156986.htm
Ich möchte gerne eine Tabelle automatisch mit Teilergebnissen...
20.05.2010 16:15:43
Thread-ID: 1158102
3 Beiträge
Range mit Variablen von SAP
SAP

Hallo Excelianer!
Im folgenden Macro werden 2 Variablen aus einem Funktionsbaustein in SAP an Excel übergeben.
Die beiden Variablen werden korrekt an das Excel-Macro übergeben.
Mit Festwerten klappt alles gut: Sub Footer(MyParam1 As Integer, MyParam2 As Integer) Range("A49").Select...
01.07.2010 10:00:39
Thread-ID: 1164841
3 Beiträge
VBA: Problem mit Variable in Formel einfügen
Harald

Hallo,
diese VBA Zeile
Selection.FormulaArray = "=LARGE(IF(SUBTOTAL(2,INDIRECT(""Tabelle1!G""&ROW(R1:R9))),Tabelle1!R1C[5]:R9C[5]),ROW(R[-4]C[-1]))"
fügt diese Formel in Tabelle1 ein
=KGRÖSSTE(WENN(TEILERGEBNIS(2;INDIREKT("Tabelle1!G"&ZEILE($1:$9)));Tabelle1!G$1:G$9);ZEI...
29.07.2010 19:03:24
Thread-ID: 1169548
5 Beiträge
Range - mit variabler Zahl ?!
KLE

Hallo,
ich würde gern folgendes tun, erhalte aber stets eine Fehlermeldung - warum ? und wie kann ich es beheben ?!
Per Aufzeichnung habe ich folgendes stehen, wenn ich mehrere Bereiche markiere.
Range("A8:C1130,E8:F1130,I8:M1130").Select
gehe ich in ein anderes Blatt und drücke...
12.11.2010 17:34:13
Thread-ID: 1186561
9 Beiträge
Range mit variablen Spalten und Zellen
Joachim

Hallo,
ich hab ne Userform mit 2 ComboBoxen. CB1 stellt eine Spaltenauswahl dar (A bis AZ) und CB2 die Zeilenauswahl (2 bis 5). Die Werte der CBs lese ich aus und wollte sie mit range verarbeiten.
Beispiel:
CB1 = C, CB2= 3 ergibt "C3"
Range(CB1,CB2) geht aber leider nicht.
...
25.05.2011 15:25:58
Thread-ID: 1216015
5 Beiträge
Range mit Variabler
Burghard

Hallo,
bei mir gibt es in einem Makro einen Fehler:
letztezeile = ActiveSheet.Cells(65536, 4).End(xlUp).Row
Dim Markierung As Range
Set Markierung = ActiveSheet.Range("C1:Dletztezeile")
Kann mir jemand die richtige Syntax sagen?
Schönen Gruß
Burghard
28.05.2011 16:17:09
Thread-ID: 1216511
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige