Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilennummern ausgeben und Bereiche tauschen

Forumthread: Zeilennummern ausgeben und Bereiche tauschen

Zeilennummern ausgeben und Bereiche tauschen
27.04.2019 18:09:54
Michael
Hallo !
Ich bin VBA-Anfänger und brauche eure Hilfe. Ich möchte gerne folgendes in VBA programmieren :
1 ) Auswahl von zwei Zeilen und Ausgabe der Zeilennummer als Integer
2 ) Integerwerte verwenden, damit ich Bereiche z.B. J10 bis O10 mit J11 bis O11 tauschen kann.
Kann mir da jemand helfen ? Wäre unglaublich dankbar !
MfG
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Das sind nicht 2 Zeilen sondern Bereiche
27.04.2019 18:35:58
Matthias
Hallo
Für Dein Beispiel so:
Range("J10:O10").Cut
Range("J12:O12").Insert Shift:=xlDown
Statt der 10 kannst Du auch eine Variable verwenden
Dim X as long
X = 10
Range("J" & X &":O" & X).Cut
Range("J" & X+2 &":O" & X+2).Insert Shift:=xlDown
Gruß Matthias
Anzeige
AW: Das sind nicht 2 Zeilen sondern Bereiche
27.04.2019 19:04:11
Michael
Hallo !
Danke aber ich möchte das Programm für beliebig zwei ausgewählte Zeilen anwenden. Dafür brauche ich die Ausgabe der Zeilennummern als Integer. Eine Idee dazu ?
AW: Das sind nicht 2 Zeilen sondern Bereiche
27.04.2019 20:20:03
Hajo_Zi
Integer reicht nicht da 1.048.576 Zeilen.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Das sind nicht 2 Zeilen sondern Bereiche
27.04.2019 20:30:00
Michael
Ok. Es muss auf jeden Fall eine Variabel sein.
Mein Programm muss erkennen, welche zwei Zeilen ich ausgewählt habe und entsprechend der Zeilenauswahl die Vertauschen der definierten Zeilenbereiche durchführen.
Kann mir bitte jemand konkret ein Programm aufschreiben mit Erklärungen ? Wäre unglaublich dankbar !
VG
Michael
Anzeige
AW: Das sind nicht 2 Zeilen sondern Bereiche
28.04.2019 09:28:53
hary
Moin
Sind noch Fragen offen.
Welche Spalten betrifft es?
Bereiche immer gleich gross?
Fuer den ersten Teil
Wenn du zwei Zellen mit strg-Taste auswaehlst. 
Dim eins As Long, zwei As Long
With Selection
If .Cells.Count = 2 Then '--wenn zwei Zellen ausgewaehlt
eins = .Cells(1).Row '--erste Zeilennummer
zwei = .Cells(2).Row '--zweite Zeilennummer
End If
End With

gruss hary
Anzeige
AW:vergiss meinen Code,sry owT
28.04.2019 10:01:03
hary
.
AW: Zeilennummern ausgeben und Bereiche tauschen
28.04.2019 09:45:08
Sepp
Hallo Michael,
Sub switchLines()
  Dim varTemp As Variant, lngRow1 As Long, lngRow2 As Long
  
  If Selection.Areas.Count = 2 Then
    lngRow1 = Selection.Areas(1).Row
    lngRow2 = Selection.Areas(2).Row
    varTemp = Range(Cells(lngRow1, 10), Cells(lngRow1, 15))
    Range(Cells(lngRow1, 10), Cells(lngRow1, 15)) = Range(Cells(lngRow2, 10), Cells(lngRow2, 15)).Value
    Range(Cells(lngRow2, 10), Cells(lngRow2, 15)) = varTemp
  Else
    MsgBox "Bitte Zellen in zwei Zeilen separat auswählen!"
  End If
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Anzeige
AW: Zeilennummern ausgeben und Bereiche tauschen
28.04.2019 13:17:16
Michael
Super !!!! Vielen lieben Dank für die Antwort ! Genau das habe ich gebraucht !
Eine Frage nochmals. Wenn ich aber jetzt noch die Spalte 17 mit dazunehmen möchte, wie mache ich das ?
LG
Michael
AW: Zeilennummern ausgeben und Bereiche tauschen
28.04.2019 13:21:21
Sepp
Hallo Michael,
Sub switchLines()
  Dim varTemp As Variant, lngRow1 As Long, lngRow2 As Long
  
  If Selection.Areas.Count = 2 Then
    lngRow1 = Selection.Areas(1).Row
    lngRow2 = Selection.Areas(2).Row
    varTemp = Range(Cells(lngRow1, 10), Cells(lngRow1, 15))
    Range(Cells(lngRow1, 10), Cells(lngRow1, 15)) = Range(Cells(lngRow2, 10), Cells(lngRow2, 15)).Value
    Range(Cells(lngRow2, 10), Cells(lngRow2, 15)) = varTemp
    varTemp = Cells(lngRow1, 17)
    Cells(lngRow1, 17) = Cells(lngRow2, 17).Value
    Cells(lngRow2, 17) = varTemp
  Else
    MsgBox "Bitte Zellen in zwei Zeilen separat auswählen!"
  End If
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Anzeige
AW: Zeilennummern ausgeben und Bereiche tauschen
28.04.2019 13:31:39
Michael
Funktioniert einwandfrei ! Vielen Dank für die Hilfe !!!!!!
;

Forumthreads zu verwandten Themen

Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Spalten mit Zeilen tauschen ?
Holger

Hallo zusammen,
gibt es in Excel eine Möglichkeit, Daten einer oderer mehrere Spalten nun quasi um 90° zu drehen und alles in eine oder mehrere Zeilen zu kopieren.
Gruss
Holger Wächter
18.09.2008 10:26:00
Thread-ID: 1010640
4 Beiträge
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Anzeige
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
wert in zeile suchen und spalte kopieren
Astrid

Hallo Fachleute,
Ich stecke bei folgendem Excel problem fest:
Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
11.03.2009 12:41:00
Thread-ID: 1059072
9 Beiträge
Bestimmte Zeilen und Spalten löschen
jo_cindy

Hallo Leute, hab mal wieder eine Frage:
Nachfolgende Exceldatei bekomme ich aus meiner Zeiterfassung ausgelesen. Die rot markierten Bereiche (nur zur Erklärung hier rot gekennzeichnet!) benötige ich aber nur, alle anderen Daten sollen nicht nur ausgeblendet werden, sondern gelöscht werden....
28.04.2009 19:32:33
Thread-ID: 1071712
5 Beiträge
Zeilen- und Spaltenbreite in cm
Hartwig

Hallo Leute,
ich habe untenstehendes Makro mal von einem guten Helfer im Forum bekommen.
Ich weiß aber nicht mehr von wem. Nun weichen die Ergebnisse aber von der Eingabe ab.
Wenn ich z.B. 3,00 cm Spaltenbreite eingebe, erhalte ich 2,80 cm, bei 3,00 cm Zeilenhöhe
erhalte ich 3,3...
29.04.2009 09:49:17
Thread-ID: 1071787
4 Beiträge
Anzeige
Spalten vergleichen und Zeilen verschieben
Silke

Hallo,
ich habe da ein kleines Problem: ich möchte gerne Duplikate in den Spalten A und B suchen und die betreffenden Zeilen dann in die Tabelle 2 verschieben
Kann mir da jemand helfen?
Silke
07.05.2009 09:58:30
Thread-ID: 1073519
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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