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

Excel VBA Spalte "AD" ansprechen

Forumthread: Excel VBA Spalte "AD" ansprechen

Excel VBA Spalte "AD" ansprechen
08.02.2016 14:11:28
Bernd
Hallo Forum-Gemeinde,
ich wollte mal fragen, wie kann ich in Excel über den Befehl
Const Spalten = "BFJNRVZ"
auch die Spalte "AD" ansprechen, also nicht die Spalte A und D sondern die Spalte AD nach Z
LG
Bernd

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA Spalte "AD" ansprechen
08.02.2016 14:43:30
Michael
Hallo Bernd!
Mit Const Spalten = "BFJNRVZ" sprichst Du (noch) nichts an; damit wird nur eine Konstante deklariert mit dem Wert "BFJNRVZ".
Auf eine bestimmte Spalte kannst Du Dich bspw. so beziehen Columns("AD").Select
wobei das auch davon abhängig ist, wozu Du eine Spalte ansprechen möchtest...
LG
Michael

Anzeige
AW: Excel VBA Spalte "AD" ansprechen
09.02.2016 06:59:30
Bernd
Hallo Michael,
hier nochmal der gesamte Code:
Dim maxZeile&, maxZeile2&, s&
'SpaltenStartbereiche B F J N R V Z'
Const Spalten = "BFJNRVZ"
Const überschriftenzeile = 13
For s = 1 To Len(Spalten)
maxZeile = BlattVon.Range(Mid(Spalten, s, 1) & BlattVon.Rows.Count).End(xlUp).Row
If maxZeile > überschriftenzeile Then
maxZeile2 = BlattNach.Range(Mid(Spalten, s, 1) & _
BlattNach.Rows.Count).End(xlUp).Row
BlattVon.Range(Mid(Spalten, s, 1) & überschriftenzeile + 1). _
Resize(maxZeile - überschriftenzeile, 3).Copy
BlattNach.Range(Mid(Spalten, s, 1) & maxZeile2 + 1).PasteSpecial xlPasteValues
End If
Next
und beim Kopieren der Daten, gibt es Tabellen, die über die Spalte Z hinausgehen und die sollen ja auch mit rangezogen werden.
Ich hatte den Code so verstanden, das die Werte in die Konstante Spalten übernommen werden und das er dann dort mitarbeitet.
LG
Bernd

Anzeige
Da wirst du wohl Zwischenräume in der ...
09.02.2016 04:10:48
Luc:-?
…Konstanten vorsehen müssen, Bernd;
mit Split(Spalten) könntest du die dann in ein Array von SpaltenBezeichnern verwandeln.
Morrn, Luc :-?
Besser informiert mit …

Anzeige
AW: Da wirst du wohl Zwischenräume in der ...
09.02.2016 07:00:17
Bernd
Hallo Luc,
hier nochmal der gesamte Code:
Dim maxZeile&, maxZeile2&, s&
'SpaltenStartbereiche B F J N R V Z'
Const Spalten = "BFJNRVZ"
Const überschriftenzeile = 13
For s = 1 To Len(Spalten)
maxZeile = BlattVon.Range(Mid(Spalten, s, 1) & BlattVon.Rows.Count).End(xlUp).Row
If maxZeile > überschriftenzeile Then
maxZeile2 = BlattNach.Range(Mid(Spalten, s, 1) & _
BlattNach.Rows.Count).End(xlUp).Row
BlattVon.Range(Mid(Spalten, s, 1) & überschriftenzeile + 1). _
Resize(maxZeile - überschriftenzeile, 3).Copy
BlattNach.Range(Mid(Spalten, s, 1) & maxZeile2 + 1).PasteSpecial xlPasteValues
End If
Next
und beim Kopieren der Daten, gibt es Tabellen, die über die Spalte Z hinausgehen und die sollen ja auch mit rangezogen werden.
Ich hatte den Code so verstanden, das die Werte in die Konstante Spalten übernommen werden und das er dann dort mitarbeitet.
LG
Bernd

Anzeige
AW: Da wirst du wohl Zwischenräume in der ...
09.02.2016 09:16:25
Michael
Hallo Bernd!
Dann teste mal so:
Sub b()
'Einbezogene Spalten: B F J N R V Z + AD (nach Z)
Const Spalten As String = "B,F,J,N,R,V,Z,AD" 'Spaltenbezeichnungen mit Komma trennen!
Const Überschriftenzeile As Long = 13
Dim maxZeile As Long
Dim maxZeile2 As Long
Dim s As Long
Dim arrSpalten
arrSpalten = Split(Spalten, ",")
For s = 1 To UBound(arrSpalten)
maxZeile = BlattVon.Range(arrSpalten(s) & BlattVon.Rows.Count).End(xlUp).Row
If maxZeile > Überschriftenzeile Then
maxZeile2 = BlattNach.Range(arrSpalten(s) & _
BlattNach.Rows.Count).End(xlUp).Row
BlattVon.Range(arrSpalten(s) & _
Überschriftenzeile + 1).Resize(maxZeile - Überschriftenzeile, 3).Copy
BlattNach.Range(arrSpalten(s) & _
maxZeile2 + 1).PasteSpecial xlPasteValues
End If
Next s
End Sub
Restlichen Code habe ich jetzt nicht getestet, mangels Kenntnis Deiner konkreten Verhältnisse.
LG
Michael

Anzeige
@Michael: Wenn du statt Komma wie von ...
09.02.2016 14:18:16
...
…mir vorgeschlagen Leerzeichen (normaler Zwischenraum, engl space) verwenden würdest, würde arrSpalten = Split(Spalten) reichen. Außerdem könnte arrSpalten auch in dieser Form deklariert wdn: arrSpalten() As String Aber das ist hier im Prinzip egal* und ich mache das auch nur selten.
* Der Unterschied besteht nur darin, dass es bei dir ein Variant mit einem Array vom (Unter-)Typ Text und im anderen Fall ein normales Text-Array ist (beide als horizontaler Vektor).
Gruß, Luc :-?

Anzeige
@ Luc: Ja...
09.02.2016 14:25:12
Michael
Hallo,
...ist klar - aber arrSpalten() As String ist ja hier wirklich nicht notwendig.
Die Trennung mit Leerzeichen ist natürlich möglich, mir war hier aber die Trennung der Element mit Komma optisch sympathischer - frag mich aber nicht warum ¯\_(ツ)_/¯.
LG
Michael

Anzeige
Komma wäre sogar sinnvoll, wenn man die ...
09.02.2016 14:30:02
Luc:-?
…Konstante auch zur Bildung unzusammenhängender Bereiche verwenden wollte, Michael. ;-)
Luc :-?

Das schon, war aber nicht gefragt...
09.02.2016 14:33:08
Michael
...ein bisserl selber Basteln ist dann schon auch noch erlaubt. :-)
Bin ja mal auf die Rückmeldung gespannt...
LG
Michael

AW: Das schon, war aber nicht gefragt...
09.02.2016 15:11:46
Bernd
Recht herzlichsten Dank an euch beide.
Der Code von Michael reicht mir soweit.
Bei Bedarf kann ich das ja noch mit Arrays machen.
LG
Bernd

Anzeige
Freut mich, Danke für die Rückmeldung und...
09.02.2016 16:12:33
Michael
Hallo Bernd,
Bei Bedarf kann ich das ja noch mit Arrays machen.
Mein Code macht das mit einem Array ;-). Luc hat nur eine andere, und je nach Anwendung ggf. "bessere" ajF aber effizientere Methode vorgeschlagen, dieses zu füllen.
LG
Michael
;

Forumthreads zu verwandten Themen

VBA: abfragen, ob benannte Tabelle vorhanden ist
André

Moin zusammen,
wie kann ich per VBA abfragen, ob in einem Tabellenblatt bereits eine "benannte Tabelle" definiert ist?
Ich erstelle die Tabelle mit
Worksheets("Datensätze").ListObjects.Add(xlSrcRange, rg, , xlYes).Name = "Datenbereich"
Läuft das Makro dann ein weiteres mal, kom...
12.06.2009 14:18:00
Thread-ID: 1080995
2 Beiträge
Verweis auf Spalte und zeile einer Tabelle
Julian

Liebe Excelgemeinde,
angenommen ich habe eine Spalte [PersNummer] in einem als Tabelle formatiertem Bereich,
wie kann ich Zeile 5 aus Spalte [PersNummer] in eine Formel einbinden?
Vielen Dank schon im Voraus,
Julian t.
23.11.2009 15:51:02
Thread-ID: 1119514
6 Beiträge
Mehrere Spalten von einer Tabelle kopieren
einer


Hallo Excel Experten,
ich verzweifel an dem Versuch aus einer Tabelle Spalten in eine andere Tabelle zu kopieren!
Grundsätzlich sind beide Tabellen identisch (gleiche wks Anzahl, Grunddaten usw), jedoch soll in der ersten Tabelle ab Tabellenblatt 4 in Spalte A Änderungen vorgenomme...
24.01.2010 17:34:12
Thread-ID: 1131905
3 Beiträge
Anzeige
Buttons in einer Tabelle ansprechen und löschen
Tom

Hallo ihr Profis.
ICh habe ein Problem mit einem Makro von mir.
Ich möchte gern dass in dem Makro alle Buttons abgefragt werden und die die sich in der entsprechenden Spalte befinden gelöscht werden.
Ich habe das bisher so realisiert:
For Each ButtonShape In Sheet.Sh...
14.10.2010 06:51:24
Thread-ID: 1181892
5 Beiträge
2 Spalten einer Tabelle einer anderen zufügen
Ralf

Hi Folks,
Ich habe eine csv-Tabelle mit 5000 aufgewählten Produkten aus einem Pool von 24000 Artikeln. Eine Zweite Tabelle (im txt-Format) beinhaltet alle 24000 Artikel mit gleichlautenden Artikelnummern aber anderen Infos. Jetzt möchte ich aus der Tabelle mit 24000 Artikeln zwei Infospalte...
20.10.2010 08:18:51
Thread-ID: 1183151
6 Beiträge
VBA - mehrere Spalten ansprechen
WalterK

Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If...
15.04.2012 21:57:25
Thread-ID: 1259508
5 Beiträge
Inhalt einer ganzen Tabelle ansprechen
Ximena

Hallo :)
Ich programmiere gerade eine Makro im PowerPoint. Ich weiss, das hier ist ein Excel Forum, aber da ich hier die besten Antworten auf meine Fragen bekomme, kann ich es ja dann vielleicht aufs PPT duplizieren :)
Nun gut, ich suche auf einem Slide nach dem Shape, das eine Tabelle...
31.05.2012 11:00:22
Thread-ID: 1265522
3 Beiträge
Anzeige
Spalte X aus 20+ Blättern in einer Tabelle kopiere
Jones

Hallo,
ich muss regelmäßig aus einer Exceltabelle, Text aus bestimmten Blättern kopieren und die Wörter mit Notepad++ zählen.
Ich suche eine Möglichkeit entweder:
1. die betroffenen Spalten aus den betroffenen Blättern zu kopieren
und in eine neue Tabelle einfügen und dann den d...
05.02.2013 11:26:39
Thread-ID: 1297710
10 Beiträge
VBA Seite in Tabelle ansprechen
Müller

Hallo.
Ich habe ein Skript, welches mir meine Daten in Datenpaare trennt und dann per pagesetup an die Seitengröße anpasst.
Nun habe ich das Problem, dass die Daten teilweise so getrennt werden, dass ein Teil auf Seite 1 steht und der andere Teil in der ersten Zeile der Seite 2.
Gib...
09.04.2015 13:00:40
Thread-ID: 1419902
3 Beiträge
Spalte prüfen und evtl. ergänzen; VBA
Walter

Guten Morgen,
habe folgende Bitte/Problem:
Bräuchte gerne über VBA einen Kode für folgendes:
In einer vorher markierten Spalte
soll geprüft werden, ob bei Zahlen (und nur bei Zahlen!)
Einträge stehen, welche kein Devis (-) davor stehen haben.
Diese (nur bei Zahlen!) müss...
24.04.2015 07:59:06
Thread-ID: 1422908
5 Beiträge
Spalte prüfen und evtl. ergänzen; VBA
Walter

Guten Morgen,
habe folgende Bitte/Problem:
Bräuchte gerne über VBA einen Kode für folgendes:
In einer vorher markierten Spalte
soll geprüft werden, ob bei Zahlen (und nur bei Zahlen!)
Einträge stehen, welche kein Devis (-) davor stehen haben.
Diese (nur bei Zahlen!) müss...
24.04.2015 08:09:35
Thread-ID: 1422911
3 Beiträge
VBA Dynamische Tabelle neue Zeile generieren
Spenski

Hallo
Ich habe eine Dynamische Tabelle "Tabelle1"
Ich möchte, das per Button die Tabelle um eine Zeile erweitert wird. geht sowas?
danke fürs lesen
christian
18.05.2015 20:31:20
Thread-ID: 1426692
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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