Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
144to148
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
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Selektierte Zeilen Und Spalten ermitteln

Selektierte Zeilen Und Spalten ermitteln
11.08.2002 22:37:33
Nepumuk
Guten Abend zusammen
ich habe, um in einer Tabelle mit ca. 100 Spalten und X-tausend Zeilen, einen Code entwickelt der es mir erlaubt in einem beliebigen Bereich eine Auswahl zu treffen und diesen dann Zelle für Zelle zu abzuarbeiten. Meine Frage: Gibt es eine weniger unübersichtliche Methode als meine, um die Startzelle und die Endezelle einer Selektion zu ermitteln.
Mein Code:

Vielen Dank für eure Bemühungen.
Gruß
Nepumuk


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

Betreff
Datum
Anwender
Anzeige
Re: Selektierte Zeilen Und Spalten ermitteln
11.08.2002 23:04:42
L.Vira
Abgesehen davon, dass ich nicht genau verstehe, was du eigentlich
damit erreichen willst, sind die Datentypen schon mal falsch.
Beispiel:
Dim spalte1 As String
spalte1 = Selection.Row 'Row sollte Long sein

Dim zeile As Single 'Zeile sollte Long sein
Kannst du weglassen
CSng(zeile1) To CSng(zeile2)
zeile1 to zeile2 'als Long deklariert

Re: Selektierte Zeilen Und Spalten ermitteln
11.08.2002 23:35:32
L.Vira
So sollte es gehen:

Option Explicit
Sub Zeilen_und_Spalten()
Dim spalte1 As Integer, spalte2 As Integer, zeile1 As Long, zeile2 As Long
Dim zeile As Long, spalte As Integer

If Selection.Count > 1 Then
If Selection.Areas.Count > 1 Then
MsgBox "Mehrbereichsauswahl ist nicht gestattet", 48, "Hinweis"
Else
spalte1 = Selection.Column
spalte2 = spalte1 + Selection.Columns.Count - 1
zeile1 = Selection.Row
zeile2 = zeile1 + Selection.Rows.Count - 1
End If
Else
spalte1 = Selection.Column
spalte2 = spalte1
zeile1 = Selection.Row
zeile2 = zeile1
End If

For spalte = spalte1 To spalte2
For zeile = zeile1 To zeile2
'hier kommt mein Bearbeitungscode
Next zeile
Next spalte

'Warum geht eigentlich nicht eine For each Next Schleife?
'Da könnte alles, bis auf die Abfrage Mehrfachselektion
'entfallen.

End Sub


Anzeige
Re: Selektierte Zeilen Und Spalten ermitteln
12.08.2002 00:14:29
Sigi E.
oder kürzer ...

Zeile_erste = Selection.Cells(1).Row
Spalte_erste = Selection.Cells(1).Column
Zeile_letzte = Selection.Cells(Selection.Cells.Count).Row
Spalte_letzte = Selection.Cells(Selection.Cells.Count).Column

Gruß
Sigi

Re: Selektierte Zeilen Und Spalten ermitteln
12.08.2002 00:15:33
Nepumuk
Die Daten kommen automatisch von verschiedenen Sensoren aus einem Kunststoffspritzwerkzeug plus Maschinendaten plus Granulatdaten. Wenn eine 3DLasermessapparatur bei Werkstücken größere Abweichungen ermittelt sollen diese Daten untersucht werden. Daher die Bereichsauswahl. Den Datentyp String habe ich benutzt um aus der R1C1-Adresse die Zeilen und Spalten zu ermitteln. Habe früher in Assembler und RPG2 programmiert únd versuche mir seit ca. 2 Jahren VBA autodidaktisch beizubringen. Desswegen mein noch etwas eingeschränkter Befehlsschatz.
Nochmals vielen Dank
Gruß
Nepumuk

Anzeige

30 Forumthreads zu ähnlichen Themen

VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Anzeige
VBA Zeilenumbrüch in Zelle auslesen
Georg

Liebe Excellenzen,
ich habe eine aus drei Spalten verbundene Zelle die eine feste Größe hat (Breite und Höhe). In diese Zelle schreibe ich via VBA unterschiedliche Texte. Normalerweise hat die Zelle eine Formatierung von Arial 24. Dann sind 2 Zeilen lesbar bei meiner Zeilenhöhe von 62.
...
17.09.2011 12:03:41
Thread-ID: 1230297
3 Beiträge
im VBA Code Fehlerzeile ermitteln
ChrisW

Hallo Leute,
wie kann ich ermitteln, in welcher Zeile des VBA Codes ich mich befand, als es zu einem Fehler kam?
Ich suche eine Möglichkeit herauszufinden, in welcher VBA Zeile ein "Error" aufgetreten ist, bevor das Makro auf die Fehlerbehandlungszeile gesprungen ist.
Gibt es diese...
21.09.2011 10:37:37
Thread-ID: 1230871
2 Beiträge
Anzeige
VBA Zeile aus XML auslesen
Andy

Hallo,
ich möchte gerne über die Google-Maps-API eine Postadresse für die Navigation aus vorhandenen Geokoordinaten ermitteln. Zur Verfügung stehen mir nur die Geokoordinaten.
Über den folgenden Link kann man dazu die Adresse abfragen:
http://maps.googleapis.com/maps/api/geocode/xml...
29.04.2013 15:58:33
Thread-ID: 1311024
5 Beiträge
Excel VBA Word Kopfzeile auslesen
Björn

Hallo Leute,
ich verzweifel gerade daran aus einer Worddatei die Kopfzeilen auszulesen.
Egal was ich ausprobiere bekomme ich Fehler.
Ich lese in Excel eine Worddatei ein und kopiere die Sections der Worddatei in einzelne Tabellenblätter in Excel. Das klappt auch alles.
Nun haben...
14.04.2016 22:56:28
Thread-ID: 1488115
3 Beiträge
VBA Rahmen außen der markierten Zellen
Bernd

Mahlzeit liebe Profis,
ich suche nun schon etwas länger im Netz und auch hier im Forum, finde aber leider keine passende Lösung und hoffe, es kann mir jemand weiter helfen.
Ich würde gerne in einem Tabellenblatt einen Bereich markieren und genau dieser markierte Bereich sollte dann mit...
17.10.2016 11:36:26
Thread-ID: 1520059
6 Beiträge
VBA; nur verschiedene markierte Zellen kopieren
Bernd

Hallo zusammen,
Benötige Hilfe bei folgendem Problem.
1.Kopiere markierte Zellen aus Spalte B3:B7, D3:D7, F3:F7, H3:H7.
2. Füge kopierte Zellen in Tabelle2 ab A3 abwärts ein
Die markierten Zellen in den Spalten variieren von der Anzahl und zwar kann z.B. in Spalte B drei Zellen,...
07.10.2017 17:54:51
Thread-ID: 1584648
13 Beiträge
VBA Aktion nur bei Selektierten Zeilen in Listbox
Andre_D

Hallo zusammen,
ich habe in einer Userform eine Listbox mit mehreren Spalten, die durch Klick auf einen CommandButton in ein Tabellenblatt (WA) kopiert werden sollen. Dazu sollen sie aus einem anderen Tabellenblatt (Bestand) gelöscht werden.
Im Grunde funktioniert das mit meinem Code...
23.08.2018 09:41:14
Thread-ID: 1641126
5 Beiträge

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