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
1660to1664
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
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Neue Spalte generieren

VBA Neue Spalte generieren
10.12.2018 15:27:15
Peter
Guten Tag allerseits,
ich habe als absoluter VBA Anfänger folgendes Problem:
Ich möchte einen Code schreiben der aus Spalte J die Zahlenwerte & das dazugehörige Datum aus Spalte I in zwei neue Spalten übernimmt, sofern der Zahlenwert ungleich 0 bzw ungleich #NV ist. Am Ende sollte ich dann zwei Spalten erhalten die so aussehen wie die zwei Spalten zuvor nur eben ohne diese Zeilen mit den 0 Werten.
Hintergrund der Aufgabe ist das ich über 30.000 Zeilen habe und diese somit nicht händisch überprüfen & ggf. übertragen kann.
Ich würde mich um eure Hilfe riesig freuen, auch wenn die Aufgabe für euch sicherlich sehr einfach ist.
Liebe Grüße
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Neue Spalte generieren
10.12.2018 16:40:11
Bernd
Servus Peter,
meinst du so in der Art: 

Sub test()
Dim i As Integer
Dim intLZ As Long
Dim intLS As Integer
With ActiveSheet
intLZ = .Cells(Rows.Count, 1).End(xlUp).Row
intLS = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
For i = 1 To intLZ
If Not IsError(.Cells(i, 10)) Then
If IsNumeric(.Cells(i, 10)) And .Cells(i, 10).Value  0 And IsDate(.Cells(i, 9))  _
Then
.Cells(i, intLS) = .Cells(i, 9).Value
.Cells(i, intLS + 1) = .Cells(i, 10).Value
End If
End If
Next i
End With
End Sub
Grüße, Bernd
AW: VBA Neue Spalte generieren
11.12.2018 15:21:36
Peter
Hallo Bernd,
der Quellcode sieht gut aus. Wäre es möglich die Werte in den neuen Zeilen & Spalten ohne Abstand nacheinander folgen zu lassen? Bis jetzt stehen die Werte und das dazugehörige Datum noch auseinander, da ich in meinem letzten Post dies nicht erwähnt hatte.
Den Part:
intLZ = .Cells(Rows.Count, 1).End(xlUp).Row
intLS = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
habe ich nicht ganz nachvollziehen können, mich würde es freuen wenn ich dazu eine kleine Erklärung bekomme was dort eigentlich genau steht.
Ich habe das Problem das das Makro zwar reibungslos durchläuft, ich aber keine Änderungen sehen kann. Deswegen versuche ich den Code nochmal selber zu verstehen.
Vielen Dank für die Hilfe!
Liebe Grüße
Peter
Anzeige

92 Forumthreads zu ähnlichen Themen

VBA Code nach einfügen von Spalten
Spalten

Hallo zusammen,
immer wieder muss ich recht umfangreichen Code überarbeiten, nachdem ich Spalten einfügen musste.
Gibt es eine Möglichkeit dies zu automatisieren. Also, den Code per code zu überarbeiten?
Kann man mit Bereichsnamen etwas anfangen?
Beispiel Codeschnipsel:
Win...
30.06.2009 15:43:34
Thread-ID: 1085417
6 Beiträge
Anzeige
VBA Spalte kopieren und mehrfach (X-mal) einfügen
Sebastian

Hallo,
ich habe folgendes Problem:
Ich habe ein Excel Tabelle und möchte dort die komplette Spalte M kopieren und direkt rechts daneben mehrmals wieder einfügen (wenn möglich nicht nur die Inhalte sondern inkl. aller Formatierungen).
Die Menge, wie oft diese Spalte wieder eingefügt...
21.07.2010 15:44:35
Thread-ID: 1168151
6 Beiträge
VBA - Formatierte Zeilen einfügen
Boris

Hallo
Ich möchte 3 formatierte Zeilen per VBA in die aktive Arbeitsmappe einfügen.
Dazu brauche ich ein VBA-Makro (um es mittels Tastenkombination aufzurufen).
Die Formatierung umfasst Schriftschnitt, Zeilenhöhe und Formeln.
Geht das prinzipiell mit VBA?
Vielen Dank!
Bo...
07.04.2011 15:54:10
Thread-ID: 1209494
6 Beiträge
Anzeige
mit VBA einen Zeilenumbruch einfügen
WalterK

Hallo,
Per Schaltfläche möchte ich ein Makro starten, das in jeder beschriebenen Zelle am Ende des Zellinhaltes zusätzlich noch einen Zeilenumbruch einfügt, außer es ist am Ende des Zellinhaltes bereits einer vorhanden.
Es soll im Bereich D5:D&bis zur letzten belegten Zelle funktio...
26.06.2012 10:42:03
Thread-ID: 1268821
3 Beiträge
VBA kopieren und zeilen einfügen
dirk0011

Hallo zusammen,
habe ein ganz kleines Problem. Mit dem Button Werte Kopieren in dem Reiter "zusammenfassung" kopiert mir das Script wunderbar jeden neuen Eintrag von den dahinter liegenden Reitern. Jetzt kommt die Frage dazu.
Ich möchte gerne eigentlich immer die in grau markierten Über...
17.12.2012 14:53:15
Thread-ID: 1291240
18 Beiträge
Spalte einfügen / VBA-Code anpassen
Jürgen

Guten Morgen,
wer kann mir an Hand folgendem Code zeigen, wenn links im Tabellen-Blatt manuell eine Spalte hinzugefügt wurde. Wo im Code müssen Anpassungen vorgenommen werden. Damit das Makro wieder korrekt funktioniert. Sub Datum() '** Einsortieren nach Datum Dim i As Integer, j As Integer...
02.09.2013 07:29:34
Thread-ID: 1329128
13 Beiträge
Nach jeder Spalte neue Spalte einfügen
Roland

Hallo,
ich habe hier in einer Tabelle eine rheie von Spalten. Ich möchte nun nach jeder Spalte eine neue Spalte einfügen. In der Tabelle sind ca 1000 Spalten ich würde das gerne per Makro löschen, leider weiß ich nicht wie.
Zusätzlich soll in der Neuen Spalte der Name der Zelle links d...
21.03.2014 18:34:55
Thread-ID: 1354410
5 Beiträge
VBA: Ergebnis in neuer Spalte
Andreas

Hallo zusammen,
ich habe den folgenden Code und in meinem Ausgabefeld, gibt er jeden Wert mit einem ; getrennt _ an - ich hätte gerne, das jeder Wert in einer neuen Spalte steht, was muss ich dafür eingeben? Ausgabe.Label1.Caption = Ausgabe.Label1.Caption & Gewichtung(i, Max) & "...
25.06.2014 16:03:50
Thread-ID: 1367439
4 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
5
1
5
5
2
2
17
12
4
3
4
13
4
10
1
2
2
2
15
7
6
9
3
4
5