Eingabe
                             
Feld 1
Feld 2
Feld 3
Feld 4 Makro Formel einfügen, kopieren und CSV | HERBERS Excel Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Formel einfügen, kopieren und CSV

Forumthread: Makro Formel einfügen, kopieren und CSV

Makro Formel einfügen, kopieren und CSV
Tim
Hallo Experten,
ich benötige eure Unterstützung. Ich brauche ein Makro, welches in einem Registerblatt ab Zeile 50 in Spalte E immer eine Formel schreibt bis zur Zeile, in der in Spalte E bereits etwas steht (Text oder Zahlen).
Wenn die Formel in die Zeilen kopiert wurde, muss eine Berechnung erfolgen, damit die richtigen Werte ausgelesen wurden und dann ist die Spalte E ab Zeile 50 bis zur letzten Zeile mit der Formel (ist ja variabel) zu kopieren . Am besten in ein neues Registerblatt einfügen und nur die Werte einfügen und gleichzeitig alle Leerzeilen löschen.
Zum Abschluss sollte dann aus dieser gefilterten Datei eine CSV-Datei erstellt werden.
Könnt ihr mit dabei helfen? Ich habe leider keine Beispieldatei.
Danke im Voraus!
Tim
Anzeige
AW: Makro Formel einfügen, kopieren und CSV
16.08.2011 19:52:12
Tino
Hallo,
und welche Formel darf es sein?
Hier mal ein Beispiel.
Tabelle im Code anpassen,
Speicherpfad für die *.csv anpassen und natürlich die Formel die ich nicht kenne.
Option Explicit

Sub Beispiel()
Dim rngBereich As Range, iCalc As Integer
Dim lngLetzte As Long

With Tabelle1 'Tabelle anpassen 
    lngLetzte = .Cells(.Rows.Count, 5).End(xlUp).Row
    If lngLetzte < 50 Then Exit Sub 'Abbruch keine Daten ab E50 
    Set rngBereich = .Range("E50", .Cells(lngLetzte, 5))
    rngBereich.FormulaR1C1 = "=RC[1]" 'Formel ? 
    .Calculate
End With

With Application
 iCalc = .Calculation
 .Calculation = xlCalculationManual
 .ScreenUpdating = False
 .DisplayAlerts = False
        
    With Workbooks.Add
        With .Sheets(1)
          .Range("A1").Resize(rngBereich.Rows.Count).Value = rngBereich.Value
        End With
        Loeschen_Mit_Formel .Sheets(1)
        'Pfad für die CSV anpassen ************************************************ 
        .SaveAs Filename:="D:\ExportCSV.csv", FileFormat:=xlCSV, CreateBackup:=False
        .Close 'Datei schließen 
    End With

 .DisplayAlerts = True
 .ScreenUpdating = True
 .Calculation = iCalc
End With
End Sub


Sub Loeschen_Mit_Formel(oWS As Worksheet)
With oWS.UsedRange
   With .Columns(.Columns.Count).Offset(0, 1)
       
       .Formula = "=IF(RC1<>"""",ROW(),TRUE)"
       
       oWS.UsedRange.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
       
       On Error Resume Next
           .SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
           .EntireColumn.Delete
       On Error GoTo 0
       
       
   End With
End With
End Sub
Gruß Tino
Anzeige
AW: Makro Formel einfügen, kopieren und CSV
17.08.2011 08:21:57
Tim
Hallo Tino,
das sieht ja super aus. Leider klappt es bei mir noch nicht. Ich habe folgende Formel vorgesehen:
WENN(LINKS(D50;6)="Sender";TEIL(D50;13;8);"")
Kann man es so einstellen, dass am Ende dann eine Art Pop-Up kommt, wo man Speicherort und Speichername festlegt?
Vielleicht soll das ja sogar. Bei mir passiert nur leider nichts. Ich kann es dann doch in ein Modul einfügen und ausführen, oder nicht? Danke nochmals.
Anzeige
AW: Makro Formel einfügen, kopieren und CSV
17.08.2011 15:54:40
Tino
Hallo,
hier die gewünschte Anpassung.
Option Explicit

Sub Beispiel()
Dim rngBereich As Range, iCalc As Integer
Dim lngLetzte As Long
Dim varFullPath

'Speicherort für die csv auswählen 
varFullPath = Application.GetSaveAsFilename(Format(Now, "dd_mm_yy_hh_mm_ss") & ".csv" _
                , "CSV-Dateie (*.csv), *.csv") 'Speichern 

If LCase(TypeName(varFullPath)) = "boolean" Then Exit Sub 'Abbrechen gedrückt 

With Tabelle1 'Tabelle anpassen 
    lngLetzte = .Cells(.Rows.Count, 5).End(xlUp).Row
    If lngLetzte < 50 Then Exit Sub 'Abbruch keine Daten ab E50 
    Set rngBereich = .Range("E50", .Cells(lngLetzte, 5))
    rngBereich.FormulaR1C1 = "=IF(LEFT(RC[-1],6)=""Sender"",MID(RC[-1],13,8),"""")" 'Formel ? 
    .Calculate
End With

With Application
 iCalc = .Calculation
 .Calculation = xlCalculationManual
 .ScreenUpdating = False
 .DisplayAlerts = False
        
    With Workbooks.Add
        With .Sheets(1)
          .Range("A1").Resize(rngBereich.Rows.Count).Value = rngBereich.Value
        End With
        Loeschen_Mit_Formel .Sheets(1)
        'Pfad für die CSV anpassen ************************************************ 
        .SaveAs Filename:=varFullPath, FileFormat:=xlCSV, CreateBackup:=False
        .Close 'Datei schließen 
    End With

 .DisplayAlerts = True
 .ScreenUpdating = True
 .Calculation = iCalc
End With
End Sub


Sub Loeschen_Mit_Formel(oWS As Worksheet)
With oWS.UsedRange
   With .Columns(.Columns.Count).Offset(0, 1)
       
       .Formula = "=IF(RC1<>"""",ROW(),TRUE)"
       
       oWS.UsedRange.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
       
       On Error Resume Next
           .SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
           .EntireColumn.Delete
       On Error GoTo 0
       
       
   End With
End With
End Sub
Gruß Tino
Anzeige
AW: Makro Formel einfügen, kopieren und CSV
18.08.2011 07:50:18
Tim
Hallo Tino,
vielen Dank für deine Mühe.
Ich komme damit aber irgendwie nicht klar. Es kommt die Abfrage nach Speicherort etc. Aber danach passiert nichts und ich finde auch keine CSV-Datei an dem ausgewählten Ort.
Ich habe eine Excelmappe mit dem Register "Tabelle1" und führe dann dort das Makro aus. Es soll dann in E50 die Formel kopiert werden und so lange bis in Spalte E in einer Zeile bereits etwas steht (Text oder Zahl). Müsste ich da nicht was sehen dann?
Anzeige
AW: Makro Formel einfügen, kopieren und CSV
18.08.2011 16:48:48
Tim
Merkwürdig. Ich habe dann dennoch eine leere CSV-Datei.
AW: Makro Formel einfügen, kopieren und CSV
18.08.2011 20:07:04
Tino
Hallo,
kann nicht sein, beispiel getestet unter xl2003 u. 2007.
Lade run Beispiel von dir hoch.
Gruss Tino
Anzeige
code falsche Darstellung
20.08.2011 19:37:11
Tino
Hallo,
habe es erst jetzt gesehen, der Code wird nicht richtig angezeigt.
<script language="JavaScript" type="text/javascript"><!--
function Runden(x, n) {
if (n < 1 || n > 14) return false;
var e = Math.pow(10, n);
var k = (Math.round(x * e) / e).toString();
if (k.indexOf('.') == -1) k += '.';
k += e.toString().substring(1);
return k.substring(0, k.indexOf('.') + n+1);
}
</script>
<script type="text/javaScript"> function calc(){;
Eingabe = document.CalcFelder.Eingabe.value;
var nvalue = document.CalcFelder.Eingabe.value;
nvalue = nvalue.replace(",", "."); //Komma durch Punkt ersetzen
var nvalue = nvalue * 1; //in eine Zahl wndeln
var n = nvalue * 10; //Faktor = 10
document.ValueFelder.Feld1.value = Runden(n,2);
var n = nvalue + 20; //Faktor = 20
document.ValueFelder.Feld2.value = Runden(n,2);
var n = nvalue - 30; //Faktor = 30
document.ValueFelder.Feld3.value = Runden(n,2);
var n = nvalue / 40; //Faktor = 40
document.ValueFelder.Feld4.value = Runden(n,2);}
</script>
<tbody>
<form name="CalcFelder">
<table cellspacing="0" cellpadding="3" border="0" id="Rechner">
<!--Feld eingabe Wert **********-->
<tr>
  <td>Eingabe</td>
  <td><input maxlength="8" size="7" onkeyup="calc()" name="Eingabe" value="0" /></td>
</tr></table></form>
<!--Optische Trennlinie *********** -->
<hr noshade width="100%" size="5" align="left">
<table cellspacing="0" cellpadding="3" border="0" id="ValueFelder">
<form name="ValueFelder">
<!--Ausgabetabelle ************ -->
<tr>
  <td><strong>Feld 1</strong></td>
  <td><input size="7" name="Feld1" id="Feld1" value="0"/> </td> <!--Feld1 ***** -->
<tr>   <!--neue Zeile ******-->
  <td><strong>Feld 2</strong></td>
  <td><input size="7" name="Feld2" id="Feld2" value="0"/> </td> <!--Feld2 ****** -->
<tr>   <!--neue Zeile ******-->
  <td><strong>Feld 3</strong></td>
  <td><input size="7" name="Feld3" id="Feld3" value="0"/> </td> <!--Feld3 ****** -->
<tr>   <!--neue Zeile ******-->
  <td><strong>Feld 4</strong></td>
  <td><input size="7" name="Feld4" id="Feld4" value="0"/></td> <!--Feld4 ******-->
</tr></tr></tr> </tr></table></form>
</tbody>

Gruß Tino
Anzeige
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Anzeige
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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