Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Brauche Hilfe für kl. Makro Abänderung
zurück: Drucken einzelner Blätter unterbinden / erlauben weiter: Fehler bei ADO-Sort (Provider kann angeforderten Vorgang...) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Jetson
Gast


Verfasst am:
02. Jan 2006, 10:42
Rufname:

Brauche Hilfe für kl. Makro Abänderung - Brauche Hilfe für kl. Makro Abänderung

Nach oben
       

Hola,

ich habe eine Makro, dass die Werte von Spalte A in Spalte B kopiert und dabei die leeren Zellen löscht. Ich möchte aber, dass es die Werte aus Spalte B ab Zeile 150 nimmt (die ich dann ausblenden kann) und diese in Spalte B ab Zeile 112 kopiert. Sind nur ca. 30 Werte.

Weiss vielleicht jemand, wie ich folgendes Makro umstellen müsste, damit es funktioniert?

Sub verschieben()
Dim arr() As String, i As Integer, intZeilen As Integer, ziel As Integer
ziel = 112
intZeilen = Cells(Rows.Count, 1).End(xlUp).Row
For i = 112 To intZeilen
If Cells(i, 1) <> "" Then
ReDim arr(intZeilen)
arr(i) = Cells(i, 1)
Cells(ziel, 2) = arr(i)
ziel = ziel + 1
End If
Next
End Sub

bin für jede Art von Hilfe wirklich dankbar.

Es grüsst Jetson
bernd200
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Jan 2006, 13:33
Rufname: Bernd
Wohnort: Böblingen


AW: Brauche Hilfe für kl. Makro Abänderung - AW: Brauche Hilfe für kl. Makro Abänderung

Nach oben
       

Hallo,

wenn du dein Makro anpassen willst, dann geht es so:
Code:

Sub verschieben()
Dim i As Long, intZeilen As Long, ziel As Long
ziel = 112
intZeilen = Cells(Rows.Count, 2).End(xlUp).Row
For i = 150 To intZeilen
  If Cells(i, 2) <> "" Then
    Cells(ziel, 2) = Cells(i, 2)
    ' Cells(i, 2) = ""
    ziel = ziel + 1
  End If
Next
End Sub


Es geht aber auch einfacher:
Code:

Sub verschieben()
  Dim r As String
  r = "B150:" & Cells(Rows.Count, 2).End(xlUp).Address
  Range(r).Copy Destination:=ActiveSheet.Range("B112")
  ' Range(r).ClearContents
End Sub

Beide Makros kopieren, so wie du es in deiner Problembeschreibung gefordert hast.
Wenn du den Bereich verschieben willst (dein Makro heißt "verschieben"), dann brauchst du nur die auskommentierte Zeile einfügen.

_________________
Gruss, Bernd
____________________________
Kaum macht man es richtig, schon funktioniert es ... Smile
Jetson
Gast


Verfasst am:
04. Jan 2006, 09:16
Rufname:

AW: Brauche Hilfe für kl. Makro Abänderung - AW: Brauche Hilfe für kl. Makro Abänderung

Nach oben
       

Hi Bernd,

erstmal herzlichen Dank für deine Hilfe.

Hab noch etwas gefunden, dass mir die Zellen löscht (was ja auch Sinn hat, wenn es zu Änderungen kommt)

Allerdings erscheint der Debugger bei der fett markierten Zeile.

Weißt du warum?

Danke nochmal

Es grüsst Jetson

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr() As String, i As Integer, intZeilen As Integer, ziel As Integer
ziel = 112
Range("B112:B149").Clear
intZeilen = Cells(Rows.Count, 2).End(xlUp).Row
For i = 112 To intZeilen
If Cells(i, 1) <> "" Then
ReDim arr(intZeilen)
arr(i) = Cells(i, 1)
Cells(ziel, 2) = arr(i)
ziel = ziel + 1
End If
Next
End Sub
bernd200
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Jan 2006, 11:38
Rufname: Bernd
Wohnort: Böblingen

AW: Brauche Hilfe für kl. Makro Abänderung - AW: Brauche Hilfe für kl. Makro Abänderung

Nach oben
       

Hallo,

ich kann mir nicht vorstellen, dass du bei jeder Bewegung des Zellzeigers die Bereiche löschen usw. willst. Das passiert aber, wenn du
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
verwendest.

Das Range("B112:B149").Clear läuft bei mir problemlos. Welchen Fehlercode kriegst du?

_________________
Gruss, Bernd
____________________________
Kaum macht man es richtig, schon funktioniert es ... Smile
Gast



Verfasst am:
04. Jan 2006, 14:33
Rufname:

AW: Brauche Hilfe für kl. Makro Abänderung - AW: Brauche Hilfe für kl. Makro Abänderung

Nach oben
       

Ohhhh tut mir leid, ich hatte die Zellen vebunden und deshalb lief es nicht durch.

Aber trotzdem gut, dass ich dir geschrieben habe. Denn die Geschichte mit dem ständigen löschen passt mit gar nicht. Könntest du mir denn sagen, weie ich das am besten ändern sollte? Will doch nur, dass es nochmal überprüft wird, wenn Änderungen vorgenommen werden. Wenn das alles zu kompliziert ist, dann keine Arbeit damit machen. Dann starte ich es halt manuell.

Besten Dank für deine Hilfe.

Es grüsst Jetson
bernd200
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Jan 2006, 15:16
Rufname: Bernd
Wohnort: Böblingen

AW: Brauche Hilfe für kl. Makro Abänderung - AW: Brauche Hilfe für kl. Makro Abänderung

Nach oben
       

Pack deinen Code in

Private Sub Worksheet_Change(ByVal Target As Range)

dann wird er nur aufgerufen, wenn jemand eine Zelle ändert.

_________________
Gruss, Bernd
____________________________
Kaum macht man es richtig, schon funktioniert es ... Smile
Jetson
Gast


Verfasst am:
05. Jan 2006, 12:14
Rufname:


AW: Brauche Hilfe für kl. Makro Abänderung - AW: Brauche Hilfe für kl. Makro Abänderung

Nach oben
       

Ganz hervorragende Arbeit Very Happy

Tausend Dank!

Es grüsst Jetson
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Mappe öffnen mit automatische Makro 0 Vase 1611 23. Feb 2006, 13:31
Vase Mappe öffnen mit automatische Makro
Keine neuen Beiträge Excel Formeln: Verweis/ Countif oder wie? brauche hilfe und danke schon mal 4 helpNeeded 1187 02. Feb 2006, 20:12
fridgenep Verweis/ Countif oder wie? brauche hilfe und danke schon mal
Keine neuen Beiträge Excel Formeln: Brauche Hilfe bei einer kleinen Funktion 9 Marius 503 20. Jan 2006, 23:41
Detlef 42 Brauche Hilfe bei einer kleinen Funktion
Keine neuen Beiträge Excel Formeln: Hallo Leute ich brauche eure Hilfe. 3 Murat 691 24. Nov 2005, 18:01
Murat Hallo Leute ich brauche eure Hilfe.
Keine neuen Beiträge Excel Formeln: Brauche wieder Hilfe 4 Gast 473 09. Nov 2005, 00:14
Gast Brauche wieder Hilfe
Keine neuen Beiträge Excel Formeln: Summewenn/dbsumme Brauche formel für add. einzelner Monate 4 CBR900RR 1297 15. Okt 2005, 14:17
CBR900RR Summewenn/dbsumme Brauche formel für add. einzelner Monate
Keine neuen Beiträge Excel Formeln: Brauche Hilfe bei einer Tabelle in Excel 4 Söffi 677 29. Sep 2005, 15:19
Gast Brauche Hilfe bei einer Tabelle in Excel
Keine neuen Beiträge Excel Formeln: Brauche dringend Hilfe zu mehrspaltigem Suchkriterien 3 joedoe 592 22. Aug 2005, 13:03
fridgenep Brauche dringend Hilfe zu mehrspaltigem Suchkriterien
Keine neuen Beiträge Excel Formeln: brauche dringend eine formel und bitte um hilfe 4 freddy-krueger 688 28. Mai 2005, 13:43
freddy-krueger brauche dringend eine formel und bitte um hilfe
Keine neuen Beiträge Excel Formeln: hallo zusammen ... brauche dringend hilfe 3 mr. ratlos 572 09. Mai 2005, 18:18
ae hallo zusammen ... brauche dringend hilfe
Keine neuen Beiträge Excel Formeln: Ich brauche eine Formel und bitte um Hilfe 2 freddy-krueger 1486 28. Apr 2005, 20:06
freddy-krueger Ich brauche eine Formel und bitte um Hilfe
Keine neuen Beiträge Excel Formeln: BRAUCHE DRINGEND HILFE FÜR EINE SCHWERE 'WENN-FUNKTION' 8 gerion 1391 18. März 2005, 19:38
gerion BRAUCHE DRINGEND HILFE FÜR EINE SCHWERE 'WENN-FUNKTION'
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project