Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Spalten kopieren und einfügen

2 Spalten kopieren und einfügen
26.07.2005 09:30:54
freedrive
Hallo Leute,
sitze grade an meinem ersten VBA-Programm und habe folgendes Problem. Ich erhalte einen Spaltenwert von z.b. 60 durch die Abfrage:
spalte = cells(1, i).column
Ich möchte aber jetzt die beiden nachfolgenden Spalten kopieren und wo anders mit:
Selection.Insert Shift:=xlToRight
einfügen. Ich schaffe es aber nicht dem 60´er Wert zu sagen - springe eins nach rechts und kopiere die nächste und übernächste Spalte :-( Hilfe!
Kann man mir jemand helfen? Vielen Dank im voraus!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Spalten kopieren und einfügen
26.07.2005 12:08:09
Herbert
da brauchst du nur "i + 1" schreiben, dann hast du Spalte 61...
gruß Herbert
AW: 2 Spalten kopieren und einfügen
26.07.2005 16:13:22
freedrive
Hi,
nein, so geht das nicht, weil ich 2 Spalten kopieren muss. Dazu muss Range benutzen und Range erlaubt keine einfachen zahlen. Da muss schon eine Adresse rein. Und ich glaube da ist auch der Knackpunkt. Ich muss glaube ich mit .adress arbeiten und erhalte die Adresse die ich dann "vielleicht" im Range benutzen kann. Das muss ich noch ausprobieren.
Viele Grüße!
AW: 2 Spalten kopieren und einfügen
26.07.2005 19:09:47
Herbert
doch, so geht das...
zwei Beispiele:


Sub spalte_kopieren()
Dim Spalte As Byte, i As Byte
For i = 1 To 255
  If Cells(1, i) = "irgendwas" Then
     Columns(i + 1).Copy [a1]
     Columns(i + 2).Copy [b1]
    Exit For
  End If
Next
End Sub
Sub spalte_kopieren_()
Dim Spalte As Byte, i As Byte
For i = 1 To 255
  If Cells(1, i) = "irgendwas" Then
    Spalte = i + 1
     Columns(Spalte).Copy [a1]
     Columns(Spalte + 1).Copy [b1]
    Exit For
  End If
Next
End Sub

     
andere Möglichkeiten gibt es auch noch...
gruß Herbert
Anzeige
AW: 2 Spalten kopieren und einfügen
27.07.2005 13:26:25
freedrive
Hi,
und wenn ich es einfügen möchte?
selection.insert [a1]
selection.inster [b1]
ist das richtig so?
Was bewirken die beiden Bezeichnungen hinter copy, d.h. [a1] und [b1] ist das eine Variable worin die Spalte gespeichert wird und womit sie angesprochen werden kann?
Viele Grüße
AW: 2 Spalten kopieren und einfügen
27.07.2005 13:52:09
Herbert
[a1] heist, daß die kopierte Spalte in Spalte A eingefügt wird.
du brauchst es ja nur probieren, dann siehst du es ja...
gruß Herbert

299 Forumthreads zu ähnlichen Themen

Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Anzeige
Per Makro Spalten und Formeln einfügen
Kai

Hallo,
ich möchte per Makro zwischen die Zeile M und N 2 Spalten einschieben und dann in ab Zeile 10 in beide Spalten eine Formel einfügen und diese noch unten ziehen.
Neue Spalte N = wenn(L10 ""; L10+100;"")
Neue Spalte O = wenn(M10 ""; M10+100;"")
die ganze Formel sollt...
21.10.2009 14:02:28
Thread-ID: 1111061
3 Beiträge
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Anzeige
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
Spaltenbereich ausschneiden und einfügen | Herbers Excel-Forum
Peter
Guten Tag
Ich möchte im ersten Sheet eines bestimmten Workbooks einen Spaltenbereich aus der Spalte P ausschneiden und in Spalte N einfügen.
Ich habe etwas Probleme mit der Syntax.
Wer hilft mir?
Vielen Dank, Peter
With ActiveWorkbook
.Sheets(1).range(cells(1,16),cells(zEnd,...
05.01.2010 10:58:08
Thread-ID: 1127228
7 Beiträge
kopieren und einfügen per makro
rolf

hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
10.01.2010 22:49:24
Thread-ID: 1128765
11 Beiträge
Userform kopieren und als als Grafik einfügen
Pepi

Hallo zusammen
Ich möchte ein Userform kopieren und als Grafik wieder einfügen, damit ersichtlich ist mit welchen Basiswerten eine Tabelle erstellt wurde (Basiswerte werden über Userform eingegeben)
Ctrl-Alt-Printscreen oder ein Bildschirmprogramm (Snagid) geht nicht, da dies automatisc...
22.02.2010 13:20:05
Thread-ID: 1140312
9 Beiträge
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
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
1
8
2
2
14
11
6
10
8
7
9
11
2
5
4
2
3
4
2
1
2
4
5
6
4