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

VBA: Werte in neu erstellter Tabelle

Forumthread: VBA: Werte in neu erstellter Tabelle

VBA: Werte in neu erstellter Tabelle
13.09.2016 08:38:34
Manuel
Hallo Experten!
Ich habe einen VBA Code der mir einen Teil von Tabelle 1 in eine, mittels Code neu eingefügte, Tabelle kopiert. Nun möchte ich bei jeder Zeile in der neuen Tabelle in der letzten Spalte jeder Zeile einen Text schreiben ("XY").
Gibt es einen Code dafür?
Vielen Dank!!!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: ergänze in Zeile 8 deines Makros den
13.09.2016 08:54:23
UweD
..Text
Msgbox "nur wenige Leute sehen dein Makro"
Gruß UweD
AW: ergänze in Zeile 8 deines Makros den
13.09.2016 09:17:14
Manuel
Dim WS1 as Worksheet
Dim WSF as Worksheet
Set WS1 = ThisWorkbook.Worksheets ("Masterliste")
Set WSF = Worksheets.add (after:=Worksheets ("Masterliste"))
WSF.Name = Textbox1.Text
WS1.Range ("A1:D310, G1:I310").Copy
Dim lngRow_2 as Long, lngRowMax As Long
With WSF
lngRow_2 = .cells (.Rows.Count, 1).End (xlUp).Row + 2
lngRowMax = worksheetFunction.Max (lngRow_2)
.Cells (lngRowMax, 1).PasteSpecial Paste:xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Anzeige
AW: ergänze in Zeile 8 deines Makros den
13.09.2016 09:37:24
UweD
Hallo
hab es ergänzt..
Wobei: Es macht keinen Sinn das Maximum von nur einem Wert zu ermitteln. Das ist immer der Wert selbst.
lngRowMax = WorksheetFunction.Max(lngRow_2)


    Dim WS1 As Worksheet
    Dim WSF As Worksheet
    
    Set WS1 = ThisWorkbook.Worksheets("Masterliste")
    Set WSF = Worksheets.Add(after:=Worksheets("Masterliste"))
    WSF.Name = TextBox1.Text
    
    WS1.Range("A1:D310, G1:I310").Copy
    
    Dim lngRow_2 As Long, lngRowMax As Long
    
    With WSF
        lngRow_2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 2
        lngRowMax = WorksheetFunction.Max(lngRow_2)
        .Cells(lngRowMax, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                            :=False, Transpose:=False
        .Range("H" & lngRowMax & ":H" & lngRowMax + 309) = "XY"

    End With




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 15 - mit VBAHTML 12.6.0

Gruß UweD
Anzeige
AW: ergänze in Zeile 8 deines Makros den
13.09.2016 10:00:48
Manuel
Cool vielen vielen Dank!
EineFrage hab ich aber noch:
Der kopierte Text ist nicht immer bis Zeile 310, aber XY möchte ich nur in der Spalte stehen haben in der auch ein Wert in A1 ist.
Soll ich hier eine Wenn Formel im Code einfügen (wenn A1="";"";XY) oder kann man dies davor schon einbauen?
Übrigends die lngRowMax habe ich nur aus dem Netz kopiert, ich weiss nicht genau wie die funktioniert.... aber danke für die Info!!
GLG Manuel
Anzeige
AW: ergänze in Zeile 8 deines Makros den
13.09.2016 11:36:52
UweD
Hallo nochmal.
- Ok, dann kann das MAX ja weg
- Im Prinzip ging das mit der Formel so...
    Dim WS1 As Worksheet
    Dim WSF As Worksheet
    Dim lngRow As Long
    
    Set WS1 = ThisWorkbook.Worksheets("Masterliste")
    Set WSF = Worksheets.Add(after:=Worksheets("Masterliste"))
    WSF.Name = TextBox1.Text
    
    WS1.Range("A1:D310, G1:I310").Copy
    With WSF
        lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 2
        .Cells(lngRow, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        .Range("H" & lngRow & ":H" & lngRow + 309).Formula = "=IF($A$1<>"""",""XY"","""")"
        .Columns("H").Value = .Columns("H").Value 'Formel in Werte 
    End With

End Sub

Aber:
- da das Blatt gerade erst erzeugt wurde, ist das leer
- mit lngRow_2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 2 wird die erste Freie Zeile gesucht und 2 addiert / also ist der Wert=3
- wenn du nun ab A3 reincopierst, ist A1 immer noch leer. Also würde die Formel nie was anzeigen.
es sei denn, du wills (ab A3) jeweils den Wert in A ? prüfen?! Dann so..
.Formula = "=IF(A3"""",""XY"","""")"
LG UweD
Anzeige
AW: ergänze in Zeile 8 deines Makros den
13.09.2016 12:40:53
Manuel
Super vielen Dank Uwe! Habs verstanden!
Kannst du mir vielleicht noch einen Code verraten der generell bei einer Tabelle die zelle in der Spalte B löscht wenn nichts in der Spalte A steht. Nur mit Code, ohne wenn Formel?
Vielen vielen Dank
AW: ergänze in Zeile 8 deines Makros den
13.09.2016 13:36:39
UweD
Hallo
- entweder musst du per Schleife die Zellen einzeln prüfen, das dauert eben.
oder
- über die Inhalteauswahl (Leerzellen) und dann offset...
    .Columns("A:A").SpecialCells(xlCellTypeBlanks).Offset(0, 1).ClearContents
LG UweD
Anzeige
AW: ergänze in Zeile 8 deines Makros den
13.09.2016 14:58:34
Manuel
...das verstehe ich nicht, mitbdiesem Code löscht er mir ja die Spalte A.
Ich möchte ja die Spalte B Löschen wenn Spalte A leer ist!
AW: ergänze in Zeile 8 deines Makros den
13.09.2016 15:30:35
Manuel
Sorry...alles retour! Hat alles hervorragend geklppt!
Warst mir heute eine grosse Hilfe - Vielen Dank für alles....jetzt lasse ich dich in Ruhe!
LG Manuel
Anzeige
Ok, danke für die Rückmeldung.
13.09.2016 15:36:38
UweD

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Anzeige
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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