Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon supportochse vom 30.04.2021, 11:31 Options
Makro Zeichen finden, Zeile einfügen, Summe bilden
ich brauche ein Makro das ein bestimmtes Zeichen findet, darüber eine Zeile einfügt, und darin eine Summe bildet von den 2 darunter liegenden Zeilen.
Antwort 1 von supportochse vom 30.04.2021, 11:45 Options
ergänzend: ich will das danach die ganze Tabelle durchsucht wird und am Ende dieser aufgehört wird, damit nicht von vorne (Endlosschleife) begonnen wird.
Antwort 2 von supportochse vom 04.05.2021, 10:51 Options
...so mal sehen ob jetzt jemand antworten kann ;-)
hmm hier ist mein Makro, aber es funzt net.
Ist ne Endlosschleife... was ist falsch daran?
Möchte, dass das Tabellenblatt einmal durchlaufen wird
und dabei die Zellen eingefügt und berechnet, danach
soll Schluss sein.
With Worksheets(1).Range("a1:j32000")
Set c = .Find(what:="RS")
If Not c Is Nothing Then
firstAddress = c.Address
Do
Rows("138:138").Select
Selection.Insert Shift:=xlDown
Range("H138").Select
ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C"
Range("H138").Select
Selection.AutoFill Destination:=Range("H138:J138"), Type:=xlFillDefaultRange("H138:J138").Select
Range("G138").Select
ActiveCell.FormulaR1C1 = "=R[-2]C"
Range("G138").Select
Selection.AutoFill Destination:=Range("A138:G138"), Type:=xlFillDefault
Range("A138:G138").Select
Range("D135").Select
Selection.Copy
Range("D138").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("136:137").Select
Selection.EntireRow.Hidden = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
hmm hier ist mein Makro, aber es funzt net.
Ist ne Endlosschleife... was ist falsch daran?
Möchte, dass das Tabellenblatt einmal durchlaufen wird
und dabei die Zellen eingefügt und berechnet, danach
soll Schluss sein.
With Worksheets(1).Range("a1:j32000")
Set c = .Find(what:="RS")
If Not c Is Nothing Then
firstAddress = c.Address
Do
Rows("138:138").Select
Selection.Insert Shift:=xlDown
Range("H138").Select
ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C"
Range("H138").Select
Selection.AutoFill Destination:=Range("H138:J138"), Type:=xlFillDefaultRange("H138:J138").Select
Range("G138").Select
ActiveCell.FormulaR1C1 = "=R[-2]C"
Range("G138").Select
Selection.AutoFill Destination:=Range("A138:G138"), Type:=xlFillDefault
Range("A138:G138").Select
Range("D135").Select
Selection.Copy
Range("D138").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("136:137").Select
Selection.EntireRow.Hidden = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Ähnliche Themen
Summe unter letzter zelle bilden
Tim85 10.04.2008 - 76 Hits - 9 Antworten
Makro: letzte Zeile finden, auch bei Filter
Michigan 04.09.2008 - 94 Hits - 2 Antworten
Summe bilden
sturmflut 01.10.2008 - 57 Hits - 4 Antworten
summe bilden
sturmflut 22.01.2009 - 117 Hits - 2 Antworten
Summe bilden mit mehreren Kriterien
Pascal12345 27.02.2009 - 157 Hits - 6 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
